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ABSTRACT 


This  thesis  describes  the  design  and  implementation  of  a 
distributed  processing  network  of  IBM  PC  compatible  computers  capable 
of  performing  parallel  processing  tasks.  The  network  is  a  star  cluster 
local  area  network,  with  the  central  computer  controlling  the 
operations  of  the  satellite  computers  on  a  sequential  basis. 

The  local  area  network  software  operates  over  the  computer's 
standard  RS-232C  communications  ports,  and  is  currently  implemented  to 
allow  the  central  computer  to  operate  two  satellite  computers. 
Processing  tasks  are  dispatched  to  the  satellite  computers  as  programs 
which  run  to  completion  on  the  satellite  computers.  Utility  programs 
within  the  software  include  file  and  message  transfer  to  start  the 
programs  on  the  satellite  computers  and  to  obtain  the  output  of  the 
remotely  executed  program,  configuration  utilities  to  set  the 
communications  port  parameters,  and  windowing  utilities  for  display  of 
information  normally  presented  on  the  remote  computer’s  display.  The 
program  is  implemented  in  Turbo  Pascal  4.0  under  the  MS-DOS  operating 
system,  version  3.21. 
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I.  INTRODUCTION 


A.  BACK6R0UND 

Many  designs  -for  local  area  networks  are  currently  available  on  the 
commercial  market,  however,  all  are  designed  to  provide  tor  sharing  ot 
high  per-formance  centralized  assets  such  as  tile  servers  or  relatively 
scarce  resources  such  as  specialized  printers;  or  tor  the  movement  ot 
data  and  tiles.  None  are  known  to  provide  a  distributed  processing 
capability  by  using  the  inherent  capabilities  ot  the  attached 
microcomputers  or  processors  under  the  control  ot  a  central  master 
computer . 

The  purpose  ot  this  thesis  is  to  demonstrate  such  a  capability  in  a 
laboratory  environment,  utilizing  a  network  ot  slave  or  server 
microcomputers  capable  ot  running  separate  applications  programs  under 
the  control  ot  a  central  or  master  microcomputer. 

B.  PROJECT  DESCRIPTION 

1.  Target  Hardware 

The  proposed  demonstration  network  consists  ot  a  single  master 
IBM  PC  compatible  microcomputer  connected  to  two  IBM  PC  or  IBM  PC/AT 
compatible  slave  microcomputers  under  the  operational  control  ot  the 
central  master. 
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2.  Network  Topology 

The  proposed  demonstration  network  is  a  small  star  network, 
with  the  master  microcomputer  as  the  central  node. 

3.  Network  Media 

The  proposed  networking  media  shall  be  the  standard  RS-232C 
serial  communications  port  provided  with  each  microcomputer.  The 
central  microcomputer  is  augmented  with  a  second  RS-232C  serial  port  to 
allow  independent  communications  with  both  slaves. 

4.  Software 

a.  Operating  System 

The  operating  system  selected  for  the  microcomputers 
shall  be  Microsoft  MS-DOS,  version  3.0  or  later,  as  supplied  with  each 
microcomputer . 

b.  Programming  Language 

All  applications  software  for  the  microcomputer  control 
programs  was  originally  intended  to  be  written  in  RR  Software  Inc. 
Janus^ADA.  The  actual  implementation  is  in  Borland  Turbo  Pascal, 
version  4.0. 

5.  Proposed  Capabilities 

a.  File  Transfer 

The  master  microcomputer  shall  be  able  to  initiate 
program  and  data  file  transfers  to  and  from  any  of  the  connected  slave 
microcomputers. 

b.  Distributed  Processing 

The  maste'^  microcomputer  shall  be  able  to  command  the 
e;;ecution  of  selected  programs  resident  on  any  slave  mi crocomputer , 


receive  an  acknowledgment  o-f  the  command  -from  the  slave,  and  receive 
the  text  output  o-f  the  selected  program  a-fter  execution. 

c.  Control  of  Multiple  Slave  MicrocoMputers 

The  master  microcomputer  shall  be  able  to  control  more 
than  one  slave  microcomputer. 

d.  Remote  Login 

The  master  microcomputer  shall  be  able  to  remotely  log  in 
to  any  slave  microcomputer  and  operate  it  remotely  over  the 
communications  network. 

e.  Error  Handling 

The  master  and  slave  microcomputers  shall  attempt  to 
restore  communications  to  resume  control  in  the  event  o-f  a  fault. 

C.  STRUCTURE  OF  THE  THESIS 

Since  standardized  microcomputers  and  operating  systems  were 
selected,  the  majority  of  this  thesis  consists  of  the  programming 
effort  to  create  the  network  control  programs,  and  the  source  code  for 
those  programs.  What  follows  will  describe  the  design  considerations 
predicated  by  the  choice  of  hardware,  operating  system  and  programming 
languages:  a  description  of  the  significant  problems  encountered;  and 
instructions  for  duplicating  the  network  along  with  program  operation 
and  maintenance. 

Chapter  II  will  describe  the  programmer's  model  of  the  hardware 
utilized  in  the  microcomputers  and  interrupt  driven  serial 
communication  considerations.  Chapter  III  will  discuss  the  essential 
features  of  the  operating  system  as  they  contributed  to  the  thesis. 


Chapter  IV  will  describe  the  salient  features  of  the  two  programming 


languages  considered,  and  the  reasons  for  selecting  a  replacement  for 
Janus/ADA.  Chapter  V  will  discuss  the  implementation  from  a  systems 
viewpoint  with  a  brief  description  of  each  software  module.  Chapter  VI 
summarises  the  conclusions  reached  from  this  thesis. 

The  appendices  provide  detailed  descriptions  of  the  program  source 
code,  the  source  listings,  an  operator's  manual,  a  guide  to  program 
maintenance,  and  the  bibliography. 
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II.  HARDWARE 


A.  THE  IBM  PC/AT  PERSONAL  COMPUTER 

The  IBM  PC/AT  personal  computer  and  its  close  compatibles,  such  as 
the  Zenith  Z-248  adopted  as  the  standard  Navy  desktop  personal 
computer,  were  selected  as  the  target  hardware  Tor  both  program 
development  and  application.  These  computers  are  general  purpose,  and 
typically  have  at  least  640K  oT  random  access  memory  Tor  operating 
system  and  program  execution,  one  or  more  Tloppy  disk  drives  handling 
5-1/4  inch  diskettes  with  360K  bytes  oT  storage  each,  a  hard  disk  drive 
holding  Trom  ten  to  twenty  megabytes  oT  storage,  and  a  monochrome  or 
color  monitor  displaying  80  characters  by  24  lines  oT  text.  One 
PS-232C  serial  interTace  is  standard,  and  a  second  is  optional.  The 
computer  also  comes  with  a  parallel  printer  port.  The  Tollowing 
hardware  Teatures  are  cT  interest  to  aid  in  understanding  the  soTtware 
developed:  (Norton,  1935,  pp.  19  -  65) 

1.  The  Central  Processor  Unit 

The  programming  model  oT  Table  2.1  is  common  to  the  Intel 
8088,  6086  and  80x86  series  oT  microprocessors  used  in  the  IBM  PC/AT 
compatibles.  This  inTormation  is  not  provided  to  support  assembly 
language  programming  (there  is  very  little  in  this  implementation),  but 
Tor  interTace  considerations  to  control,  read  Trom,  write  to,  or  obtain 
the  status  oT  the  IBM  PC  hardware  in  support  oT  the  distributed 
processing  network.  The  usage  oT  speciTic  registers  Tor  soTtware 


interrupts  is  defined  by  calling  conventions  similar  to  the  formal 
parameter  declarations  for  procedures  and  functions  in  higher  level 
languages  such  as  ADA. 


TABLE  2.1 

MICROPROCESSOR  REGISTERS 


Register  Type  Function 


Scratch  Pad  Registers; 

Arithmetic  and  data  transfer 

AX 

Accumul ator 

Arithmetic  operations 

BX 

Base 

Table  pointer 

CX 

Counter 

Repetition  loop 

DX 

General 

General  purpose 

The 

above  registers  may  also 

be  addressed  as  eight  bit  pairs,  i.e., 

register  AX  may  also  be  utilized 

as  AL  and  AH  for  the  low  and  high 

order 

bits. 

Segment  Registers; 

Separate  code,  data,  stack  and  an 

extra  segment 

CS 

Code  Segment 

Locates  the  code  segment  in  memory 

DS 

Data  Segment 

Locates  the  data  segment  in  memory 

■ss 

Stack  Segment 

Locates  the  stack  segment  in  memory 

ES 

Extra  Segment 

Intersegment  transfers 

Index 

Registers: 

Relative  offset  from  a  segment 

regi ster 

IP 

Instruction 

Points  to  next  instruction  to  be 

Pointer 

ex ecuted 

SF 

Stack  Pointer 

Points  to  next  available  location  on 
stack 

BF 

Base  Pointer 

Offset  into  the  stack  segment 

DI 

Destination  Index 

String  data  transfers 

SI 

Source  Index 

String  data  transfers 

Control  Functions; 

FI  ags 

Flag  Register 

Used  to  record  processor  status 

information 
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2.  Interrupts 

Interrupts  serve  two  -functions  in  the  IBM  PC:  hardware 
interrupts  allow  a  peripheral  to  request  servicing  -from  the  CPU,  and 
so-ftware  interrupts  allow  the  operating  system  or  applications  so-ftware 
to  obtain  services  -from  the  hardware.  Software  interrupts  are 
generated  by  a  machine  instruction.  In  either  case,  a  software  or 
firmware  interrupt  service  routine  must  be  called  to  process  the 
request.  The  originator  of  the  interrupt  does  not  need  to  know  the 
address  of  the  routine  that  accomplishes  the  service,  since  the  IBM  PC 
incorporates  a  powerful  feature  designed  to  minimize  limitations  in  the 
inherent  design.  A  level  of  indirection  is  designed  into  the  interrupt 
architecture  of  the  microcomputer  that  facilitates  redefining  the 
interrupt  service  routines  without  rewiring  the  hardware  or  changing 
firmware.  This  is  accomplished  through  a  table  of  interrupt  vectors 
reserved  at  the  first  1024  bytes  of  system  memory.  Each  of  the  256 
vector  locations  is  a  four  byte  pointer  initialized  to  point  to  a 
specific  function  by  its  location  in  the  table.  These  functions 
support  hardware  and  software  interrupts  generated  by  the  CPU  (for 
fault  processing),  the  hardware  (for  peripheral  service),  or  the 
operating  system  or  application  program  (for  higher  level  services). 
Control  is  passed  to  an  interrupt  service  routine  by  utilizing  the 
vector  at  the  location  assigned  to  that  function  to  call  the  service 
routine.  By  reassigning  these  vectors  through  the  operating  system, 
the  interrupt  service  routines  normally  found  in  the  microcomputer 
firmware  may  be  substituted  by  another  portion  of  ROM,  the  operating 
system  or  the  application  program  itself. 


As  an  example,  the  dynamic  assignment  o-f  interrupt  services 
was  utilized  to  obtain  interrupt  driven  character  receive  -functions  in 
the  distributed  processing  network.  Two  hardware  interrupt  vectors 
pointing  to  interrupt  service  routines  -for  the  communications  ports  are 
assigned  to  the  interrupt  vector  table  at  offset  $0B  for  port  two 
(logical  port  COM2) ,  and  at  offset  $0C  for  port  one  (logical  port 
COMl) .  The  distributed  processing  program  developed  for  this  thesis 
reassigns  the  indicated  vectors  to  point  to  interrupt  service  routines 
contained  in  the  thesis  program  itself.  These  vectors  are  restored  to 
their  previous  values  on  program  termination.  (Edwards,  1987,  p.  195) 
3.  Communications  Ports 

The  IBM  PC  is  inherently  capable  of  handling  up  to  seven 
communications  ports,  but  typically  is  fitted  with  only  two  at 
standardized  hardware  addresses:  logical  ports  COMl  and  COM2.  These 
are  capable  of  data  rates  ranging  from  110  to  38,400  baud;  however  the 
microcomputer  ROM  Basic  Input  Output  System  (BIOS)  servicing  the  ports 
is  only  capable  of  setting  speeds  up  to  9600  baud  through  service 
interrupt  J14.  This  service  interrupt  was  also  replaced  by  the 
application  program  to  set  the  ports  and  achieve  a  finer  degree  of 
control  over  their  operation  than  afforded  by  the  BIOS  or  the  operating 
system.  Table  2.2  is  correct  for  an  IBM  PC  (or  Zenith  Z-248)  fitted 
with  two  ports  (Edwards,  1987,  p.  231); 
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TABLE  2.2 


COMMUNICATIONS  PORT  ADDRESSES 
C0M1/C0M2 

Register  Address  Function 


Transmit  Holding  t3Fa/t2F8  Contains  the  8-bit  character  to  be 

transmitted  by  the  port.  This  is  a 
write  only  register. 

Receive  Buf-fer  ^3F8/:f2F8  Contains  the  byte  most  recently 

received  by  the  port.  This  is  a  read 
only  register. 

Interrupt  Enable  f3F9/t2F9  A  4-bit  register  that  enables  the 

serial  port  to  generate  interrupts  to 
the  computer  when  any  o-f  the 
■following  events  occurs. 

Bit  0:  Interrupt  when  data  are 
available  to  be  received. 

Bit  1;  Interrupt  when  the  transmit 
holding  register  is  empty. 

Bit  2:  Interrupt  when  the  line 
status  register  changes 
state. 

Bit  3j  Interrupt  when  the  modem 
status  register  changes 
state. 

Line  Status  I^SFD/t^FD  Provides  information  about  the  status 

of  data  transfer. 

Bit  0;  Data  ready  to  be  received. 

Bit  1:  Overrun  error 
Bit  2:  Parity  error 
Bit  3;  Framing  error 
Bit  4:  Break  detected  on  the  line 
Bit  5;  Transmit  holding  register  is 
empty 

Bit  6;  Transmit  shift  register  is 
empty 

Bit  7;  Always  zero 

Modem  Statue  t3FE/f2FE  Contains  the  status  of  the  modem 

signals 

Bit  0:  Delta  clear  to  send 

Bit  1:  Delta  data  set  ready 

Bit  2:  Trailing  edge  ring  indicator 

Bit  3:  Delta  line  signal  detect 

Bit  A:  Data  set  ready 
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Bit  5:  Data  set  ready 
Bit  6;  Ring  indicator 
Bit  7:  Receive  line  signal  detect 

Line  control  f3FB/t2FB  Used  to  con-figure  the  data 

communications  parameters. 

Bits  0  -  1:  Word  length  (bits): 

0  =  5 
1  =  6 

2  =  7 

3  =  8 

Bit  2:  Stop  bits: 

0  =  1 
1  =  2 

Bit  3:  Enable  parity 
Bit  4;  Select  even  parity 
Bit  5:  Mark/space  parity  select 
Bit  6;  Generate  BREAK  signal 
Bit  7:  Divisor  latch  access 

Modem  control  #3FC/f2FC  Allows  access  to  the  signals  used  to 

communicate  with  a  modem 
Bit  0;  Data  terminal  ready 
Bit  1:  Request  to  send 
Bit  2;  Outl 

Bit  3:  0ut2.  Must  be  set  to  enable 

UART  interrupts 
Bit  A:  Loopback 

4.  Programmable  Interrupt  Controller  (PIC) 

Another  programming  requirement  involved  enabling  the  IBM  PC 
hardware  to  recognize  receive  character  interrupts  generated  by  the  two 
UARTs.  All  hardware  interrupts  are  prioritized  for  the  CPU  by  a  device 
called  the  Programmable  Interrupt  Controller.  The  Intel  8259 
Programmable  Interrupt  Controller  is  capable  of  prioritizing  up  to 
eight  interrupts,  identified  as  IR0O  through  IRQ7,  with  IRQO  being 
assigned  the  highest  (preemptive)  priority.  The  programming 
requirements  are  to  set  the  appropriate  mask  bits  in  the  Interrupt  Mask 
Register  of  the  PIC,  and  to  send  an  End  Of  Interrupt  command  to  the 
device  following  completion  of  the  interrupt  service  routine  supplied 
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by  the  thesis  program.  Communications  port  one  is  assigned  interrupt 
vector  IRQ3  (bit  3),  and  communications  port  two  has  IRQ4  (bit  4).  The 
8259  can  be  instructed  to  recognize  or  ignore  interrupts  trom  a 
peripheral  by  clearing  or  setting  the  appropriate  bit  in  the  Interrupt 
Mask  Register  located  at  I/O  port  t21,  and  this  -feature  was  utilized  to 
disable  ports  when  not  in  use.  End  O-f  Interrupt  commands  are  sent  to 
I/O  port  *20.  This  relationship  is  summarized  below  (Breenberg,  1987, 
pp.  46-50): 

TABLE  2.3 

PROGRAMMABLE  INTERRUPT  CONTROLLER  ADDRESSES 
Register  Address  Function 


Interrupt  Mask  *21 


In  Service  *20 


Contains  the  mask  -for  the  currently 
enabled  interrupts  (read/write) 

Bit  3:  IRQ3  -  Com  port  2  mask. 

Clear  to  enable  the  port 
interrupts 

Bit  4:  IRQ4  -  Com  port  1  mask. 

Clear  to  enable  the  port 
interrupts 

Write  to  the  same  bit  as  enabled  in 
the  Interrupt  Mask  register  to  clear 
the  interrupt. 
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III.  T^«  OPERATING  SYSTEM 


Microsoft  MS-DOS  version  3.21  was  provided  with  the  microcomputers 
used  in  this  thesis,  and  provides  the  traditional  functions  expected  in 
an  operating  system:  high  level  interface  for  applications  programs, 
file  services,  memory  management,  and  input/output  services  (MS-DOS 
Reference  Guide,  1986,  pp.  2.3  -  2.9).  The  use  of  a  standard  operating 
system  was  desirable,  as  it  allowed  a  piece  of  "trusted"  software  to  be 
utilised  fo'"  most  of  the  distributed  processing  functions  while 
providing  a  familiar  environment  for  the  operator.  Certain  extensions 
to  the  operating  system  were  constructed  in  software,  to  facilitate  the 
execution  of  programs  an  the  microcomputers  and  to  complement  the 
extensions  in  hardware  services  discussed  earlier.  These  are  discussed 
below. 

A.  BACKGROUND 

MS-DOS  interfaces  directly  with  the  hardware  implementation 
dependent  portion  o-f  the  IBM  PC  compatible  microcomputer,  the  ROM  Basic 
Input  Output  System  (BIOS'.  Recall  that  this  BIOS  provides  a  logical 
interface  and  some  low  level  services  for  the  underlying  hardware, 
including  the  disk  drives,  serial  communications  ports,  keyboard  and 
video  display.  The  ROM  BIOS  also  accomplishes  the  initialization  of 
the  IBM  PC  on  power  up.  The  ROM  BIOS  services  remain  available  to  the 
programmer  through  interrupt  service  calls.  (Norton,  1985,  pp.  44 
45' 
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The  portion  ot  MS-DOS  that  interfaces  with  the  ROM  BIOS  is 
contained  in  a  file  called  10. SYS,  located  on  the  media  supplied  with 
the  operating  system.  This  file  contains  extensions  and  in  some  cases 
replacements  to  the  ROM  BIOS  services  supplied  with  the  computer  such 
as  device  drivers  for  mouse  input  devices  or  specialized  video  displays 
not  available  when  the  design  for  IBM  PC  compatibles  was  standardized. 
On  initialization,  10. SYS  substitutes  the  replacement  interrupt  service 
routines  for  the  existing  ROM  BIOS  services  by  simply  changing  the 
interrupt  table  vectors  to  point  to  the  new  routines  in  memory.  This 
facility  allows  the  manufacturer  to  tailor  a  standard  operating  system 
to  various  hardware  manufacturer's  microcomputers.  A  caution  on  the 
means  to  change  these  interrupt  vectors  is  noted  below.  (MS-DOS 
Reference  Guide,  1986,  pp.  2.5  -  2.6> 

The  nev't  file  loaded  is  MSDOS.SYS,  which  provides  hardware 
independent  services  for  the  operating  system,  i.e.,  high  level 
interface  for  file  services,  memory  management,  and  input/output 
services.  This  portion  includes  the  handler  for  a  class  of  service 
requests,  called  DOS  function  requests,  utilized  in  the  distributed 
processing  program  to  load  and  execute  programs  external  to  the 
operating  system  and  input/output  redirection  to  implement  the 
capabilities  cited  in  Chapter  I.  (MS-DOS  Reference  Guide,  1986, 
pp.  2.4  -  2.5) 

The  last  portion  of  the  operating  system  loaded  is  COMMAND.COM, 
which  builds  on  the  previous  layers  to  provide  the  familiar  command 
line  interpreter  and  MS-DOS  resident  commands  such  as  COPY  and  DIR. 
(MS-DOS  Reference  Guide,  1986,  pp.  2.7  -  2.9’ 
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The  use  o-f  •function  calls  to  change  the  interrupt  vector  table 
providing  ROM  BIOS,  10. SYS  and  MS-DOS  interrupt  services  is  strongly 
encouraged  by  Microso-ft  to  prevent  accidental  or  malicious  corruption 
o-f  data  structures  within  the  operating  system  and  the  vector  interrupt 
table.  It  is  also  intended  to  allow  backward  compatibility  for  future 
releases  of  the  operating  system  that  may  include  multitasking. 
(MS-DOS  Reference  Guide,  1986,  p.  6.3) 


B.  CHILD  PROCESSES 


The  ability  of  the 

operating 

system 

to 

spawn  a  local  process 

and 

regain  control  after 

execution  is 

an 

essential 

element 

of 

the 

distributed  processing 

network. 

MS- 

-DOS 

Function 

Request 

4BH 

i  5 

utilised  to  load  another  program  into  memory  and  begin  execution. 
Programs  executed  from  the  Command. Com  command  line  prompt  are  executed 
as  child  processes  of  the  opersting  system  in  exactly  the  same  way. 
This  function  provides  for  the  execution  of  programs  and  for  the  remote 
login  capability  required  by  the  network.  Several  details  of  the 
MS-DOS  operating  system  capability  were  of  interest  in  this  thesis. 
(MS-DOS  Reference  Guide,  1986,  pp.  3.1  -  3.9) 

1.  Program  Segment  Prefix 

When  a  child  process  is  created,  the  MS-DOS  operating  system 
finds  the  lowest  available  segment  address  to  use  as  the  start  of 
program  memory  for  the  spawned  process,  and  builds  a.  256  byte  control 
block  called  the  Program  Segment  Prefix  (PSP)  at  offset  zero  within 
that  segment.  The  executable  program  immediately  follows.  While 
Microsoft  Qoes  not  officially  document  the  use  of  certain  fields  within 
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the  PSP,  sLif-ficient  information  was  collected  from  the  MS-DOS  Reference 
Suide  and  other  sources  to  manipulate  the  environment  created  for  the 
child  process  to  accomplish  the  goals  of  the  distributed  processing 
program. 

a.  Interrupts  to  be  Restored  on  Progran  Ternination 

The  interrupt  vector  table  pointers  for  three  essential 
interrupts  are  placed  in  fields  of  the  PSP  of  the  spawned  process  prior 
to  execution.  Thase  are  restored  on  program  termination  to  insure  that 
the  interrupt  vector  table  is  not  corrupted  should  the  child  process 
replace  the  vectors  for  its  own  use  and  then  terminate  abnormally. 
These  are;  The  Terminate  Handler  Address  containing  the  address  of  the 
operating  system  routine  that  accomplishes  program  termination;  the 
Control -C  (also  known  as  Control -Break )  Address  containing  the  address 
of  the  operating  system  routine  that  handles  operator  induced  program 
termination;  and  the  Fatal  Error  Handler  Address  used  to  process  errors 
that  result  in  fatal  program  halts.  (MS-DOS  Reference  Guide,  1986,  pp. 
3.5  -  3.9) 

b.  The  Environment  Segment  Address 

The  PSP  contains  a  field  that  holds  the  segment  address 
of  the  system  environment.  This  environment  is  a  series  of  ASCII 
strings  that  may  be  used  by  programs  to  determine  permissible 
operations  or  values.  These  strings  take  the  form  variable  =  value, 
and  are  terminated  in  a.  zero  (0)  character.  An  example  is  the  "PATH  =" 
environment  variable  used  to  set  the  search  paths  used  by  the  command 
processor  Command. Com  to  locate  an  external  command.  The  process' 
current  environment  is  mace  available  by  following  this  segment  pointer 


and  searching  the  strings  -found  at  that  address  until  a  string  with  a 
second  terminating  zero  character  is  -found.  This  -facility  is  used  by 
the  thesis  program  to  locate  a  copy  o-f  the  Command. Com  on  disk  to  run 
batch  programs  (Edwards,  1987,  pp.  286  -  288).  Each  child  process 

inherits  a  copy  o-f  the  environment  pointed  to  by  the  segment  address  of 
its  parent.  This  means  that  the  child  process  may  manipulate  its  own 
environment  without  disturbing  that  of  its  parent.  It  also  means  that 
the  parent  may  manipulate  its  own  environment  prior  to  spawning  a  child 
process  in  order  to  communicate  with  the  child  or  to  restrict  certain 
environmental  parameters  from  the  child,  although  this  communications 
means  is  not  reversible.  (MS-DOS  Reference  Guide,  1986,  pp.  3.6  -  3.7) 
c.  File  Handle  Table 

When  the  PSP  is  constructed,  the  operating  system  places 
a  copy  of  all  open  file  handles  in  a  data  structure  of  the  type 
FILEHANDLE  =  ARRAY  Cl.. 201  OF  BYTE  in  the  PSP  (Greco,  1987,  p.  25). 
Each  word  in  the  table  indexes  another  data  structure  internal  to  the 
operating  system  that  contains  information  needed  to  locate  the  file  on 
the  disk  5ystem(s).  This  inheritance  has  the  effect  of  passing  all  the 
open  files  of  the  parent  to  the  child.  A  file  handle  is  a  Unix  style 
16  bit  word  that  is  used  to  identify  a  file  or  a  device  known  to  the 
operating  system,  and  replaces  the  use  of  CP/M  compatible  File  Control 
Blocks  for  file  references  by  the  operating  system  (Simrin,  1988, 
p.  204).  File  handles  allow  the  use  of  pathnames  to  open  or  create  a 
file.  Once  opened,  the  file  handle  is  returned  to  the  calling  program 
as  the  reference  to  the  file.  The  first  five  files  are  opened  by  the 
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operating  system  and  have  special  meaning:  (MS-DOS  Reference  Guide, 
1986,  p.  5.9) 

TABLE  3-1 

MS-DOS  RESERVED  FILE  HANDLES 


File 

Handle 

Mnemonic 

Purpose 

Function 

0 

Stdin 

Standard 

Input 

Input  can  be  redirected 

1 

StdOut 

Standard 

Output 

Output  can  be  redirected 

2 

StdErr 

Standard 

Error 

Output  cannot  be  redirected 

•T 

"w* 

StdAux 

COMl 

I/O  cannot  be  redirected 

4 

StdPrn 

Printer 

I/O  cannot  be  redirected 

d.  Redirection 

Redirection  refers  to  the  ability  of  the  input  or  output 
character  stream  associated  with  one  of  the  reserved  files  above  to  be 
rerouted  to  or  from  a  different  file.  An  example  of  this  function  is 
the  use  of  redirection  characters  on  the  command  line  (<,  >,  >>,  or  !), 
when  program  output  is  redirected  to  a  file  or  pipe,  as  in  the  command 
line  entry:  PROGRAM  >  FILE.  When  the  operating  system  opens  the 
Standard  Error  file,  it  is  directed  to  the  same  device  as  the  Standard 
Output  file,  the  display  console  (logical  device  driver  name  CON),  and 
cannot  be  redirected  on  the  command  line  as  indicated  in  the  table. 
This  limitation  would  prevent  vital  error  information  from  being 
redirected  from  the  slave  microcomputer  display  to  the  master 
microcomputer  display.  (MS-DOS  Reference  Guide,  1986,  p.  3.8) 

While  such  redirection  cannot  be  performed  from  the 
program  command  line,  MS-DOS  provides  function  calls  that  overcome  this 
limitation.  These  are  MS-DOS  function  calls  45H,  Duplicate  a  File 
Handle  (DUP) ,  and  46H,  Force  a  Duplicate  of  a  Handle  (FORCDUP) .  DUP 


creates  a  new  file  handle  that  references  the  same  file  at  the  same 
position  as  an  existing  file  handle.  It  does  so  by  referencing  the 
same  internal  data  structure  for  the  file  in  the  operating  system  for 
both  files.  FDRCDUP  takes  as  input  two  file  handles,  but  forces  the 
first  file  handle  to  refer  to  a  file  referenced  by  a  second  handle. 
The  file  referenced  originally  by  the  first  handle  is  closed  (Simrin, 
1988,  pp.  450  -  452).  To  accomplish  redirection  of  the  Standard  Error 
character  stream  and  overcome  the  limitation  of  the  operating  system 
cited  in  III.A.c  above,  the  parent  process  may  use  the  following 
procedure  (Greco,  19S7,  p,  26): 

Open  the  file  that  Standard  Error  will  be  redirected  to 

for  writing. 

Save  a  pointer  to  Standard  Error  using  DUP. 

Force  the  Standard  Error  handle  to  point  to  the  newly 
opened  file  using  FCRCDUP.  This  closes  Standard  Error. 

Close  the  handle  created  in  (1)  since  it  is  no  longer 

needed. 


The  child  program  may  now  be  spawned,  and  has  no 
knowledge  of  the  redirection.  Upon  termination  of  the  child,  the 
parent  reverses  the  above  process: 

Force  the  Standard  Error  handle  to  point  back  to  Standard 
Error  by  using  FGRCDUP  and  the  saved  pointer. 

This  redirection  method  is  used  for  both  Standard  Error 
and  Standard  Output  to  interleave  the  two  output  streams  into  the  same 
file.  A  more  direct  method  is  to  directly  manipulate  the  file  handles 
in  the  File  Handle  Table  of  the  Program  Segment  Prefix,  however,  this 
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violates  the  strictures  mentioned  in  the  beginning  of  this  chapter  and 
could  corrupt  the  data  structures  contained  in  the  operating  system  if 
improperly  done.  The  use  of  documented  function  calls  allows  the 
operating  system  to  protect  itself  and  to  provide  error  handling. 

C.  PROGRAM  TERMINATION 

Upon  termination  of  the  spawned  program,  the  operating  system 
accomplishes  the  following  (MS-DOS  Reference  Guide,  1986,  p.  4.241). 
First,  the  three  interrupt  vectors  described  above  are  restored  to  the 
interrupt  vector  table  from  values  stored  in  the  terminated  process' 
PSP.  Next,  control  is  given  to  the  Terminate  Handler  address  to  return 
control  to  the  invoking  process.  Finally,  all  open  files  are  closed. 
Recall  that  the  calling  program  retains  a  copy  of  all  open  files  in  its 
own  PSP.  The  effect  of  closing  all  the  files  of  the  child  is  to  flush 
file  buffers  held  internal  to  the  disk  operating  system  and  update  the 
disk  directories  (Defenbaugh,  1986,  p.  22).  The  operating  system  then 
terminates  any  redirection. 
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IV.  THE  PROBRAHMING  LANGUAGE 


Implementation  o-f  this  thesis  was  originally  attempted  in  a  subset 
o-f  the  Department  o-F  Defense  programming  language  mandated  for  mission 
critical  computer  resources,  Ada.  Ada  was  chosen  to  explore  the 
language  in  this  environment  and  to  apply  the  language  features  that 
localize  the  major  design  decisions  into  individual  program  modules 
(decomposition) ,  promote  information  hiding  through  separate 
compi  1  ">tion ,  and  support  data  abstraction.  Concurrency  might  have 
allowed  the  separation  of  the  communications  and  control  requirements 
into  separate  tasks,  but  was  not  supported  in  the  subset.  (MacLennan, 
1987,  pp.  261  -  263) 

The  subset  of  the  Ada  language  chosen  for  this  project  was  RR 
Software  Inc.  JANUS/Ada.  This  subset  of  the  approved  language  had 
several  limitations  in  addition  to  the  lack  of  concurrent  programming 
(task)  facilities,  but  was  available  and  could  be  utilized  on  the  same 
microcomputer  for  program  development  and  implementation.  It  had  been 
used  successfully  in  a  similar  environment  for  local  area  networking 
(Works,  1986),  (Hartman  and  Yasinsac,  1986),  and  includes  a  very 
capable  assembler  for  constructing  machine  language  packages.  It 
turned  out  that  this  particular  implementation  was  unsuitable  to  the 
proposed  capabilities  of  the  distributed  processing  network  for  the 


reasons  cited  below. 


A.  JANUS/Ada 


1.  Hemory  Size  Lieitaticxis  of  Coapiled  Code 

The  initial  work  for  this  thesis  was  to  construct  a  command 
line  parser  to  recognize  commands  in  MS-DOS  syntax  for  execution  on  the 
slave  microcomputer.  This  was  first  implemented  in  assembly  language 
following  the  program  of  an  established  command  intercept  processor 
(Mefford,  1986,  pp.  313  -  334).  This  program  successfully  parsed  the 
elements  of  a  command  line  and  reported  these  components,  thereby 
demonstrating  the  potential  to  execute  the  command  remotely.  The  code 
files  of  table  4.1  resulted.  Files  ending  in  a  "jrl"  suffix  are 
compiler  relocatable  object  files  and  files  ending  in  a  "com"  suffix 
are  the  linked  result  suitable  for  execution. 

TABLE  4.1 

ASSEMBLY  LANGUAGE  PARSER 


Program  Name  Language  File  Size  (bytes) 

find_com.jrl  assembly  791 

parsemai.jrl  Ada  package  148 

parsemai.com  compiled  4480 

The  parser  was  then  recoded  as  an  Ada  package  to  obtain  the 
flexibility  of  the  higher  order  language  and  to  develop  the  assembly 
language  to  Ada  package  interfaces.  JANUS/Ada  allows  assembly  language 
procedures  to  call  Ada  procedures  and  functions,  and  to  reference  Ada 
data  structures.  The  implementation  of  the  parser  as  an  Ada  package 
allowed  rapid  modification  to  the  parser  to  adjust  the  command  syntax, 
as  well  as  for  interface  to  the  other  Ada  packages  to  be  developed  for 
the  system.  When  compiled,  however,  the  following  resulted; 
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TABLE  4.2 


Ada  LANGUAGE  PARSER 

Program  Name  Language  File  Size  (bytes) 

Int_21.jrl  assembly  948 

cmdlyne.jrl  Ada  13656 

main.jrl  Ada  505 

main.com  compiled  42423 

The  cost  of  coding  in  this  implementation  of  JANUS/Ada  is 
evident  above.  The  JANUS/Ada  compiler  emits  about  a  tenfold  increase 
in  code  size  to  accomplish  the  same  effort  as  the  assembly  language 
version.  The  COM  file  is  also  much  larger,  due  to  the  incorporation  of 
library  routines  from  the  Jlib86  support  package  to  handle  string 
manipulation  and  other  high  level  language  constructs.  With  a  code 
size  limitation  of  64K  bytes,  results  similar  to  the  above  would 
napidly  exhaust  the  space  available  in  the  small  memory  model  as 
packages  were  added.  This  model  is  limited  to  64  Kbytes  of  code  and  a 
separate  64  Kbytes  of  data  (JANUS/Ada  Package  User  Manuals,  1983, 
p.  Z  -  4) ,  and  is  characteristic  of  COM  files  running  under  MS-DOS. 
The  options  were  either  to  code  major  portions  of  the  thesis  in 
assembly  language  as  had  been  done  by  Works,  Hartman  and  Yasinsac, 
linked  together  by  Ada  packages  as  a  main  program,  or  to  find  a  way  to 
expand  the  code  module.  The  latter  was  desirable  due  to  the  original 
intent  to  utilize  a  higher  level  language  for  the  distributed 
processing  network.  Before  this  could  be  pursued,  however,  a  more 
serious  problem  developed. 
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Failure  of  the  Child  Process  Call 


As  described  in  Chapter  III,  MS-DOS  commands  or  programs  not 
implemented  internally  by  the  operating  system  are  called  transient 
commands,  and  must  be  run  by  loading  the  program  into  memory  from  disk 
and  executing  it  as  a  child  process.  As  the  next  step  in  the  above 
implementation,  a  call  was  constructed  in  an  assembly  language  package 
body  to  the  MS-DOS  function  4BH,  EXEC  program  (MS-DOS  Reference  Guide, 
1986,  pp.  4.237  -  4.239).  This  was  done  to  overcome  a  limitation  of 
the  JANUS/Ada  supplied  procedure,  Prog_Call.  The  supplied  procedure 
recognizes  only  program  names  without  path  specifications,  and  does  not 
allow  for  a  command  tail  after  the  program  name.  The  procedure  also 
terminates  both  the  child  process  and  its  parent  if  the  child  process 
terminates  abnormally.  This  would  not  allow  for  a  robust  distributed 
processing  system,  capable  of  recovering  from  a  faulty  child  program 
and  continuing  to  operate  in  the  network  (JANUS/Ada  Package  User 
Manuals,  1983,  p.  15-3). 

When  this  approach  was  implemented,  however,  all  child 
processes  would  execute  normally  when  called  from  the  MS-DOS  function, 
as  expected.  The  system  would  lock  up  upon  return  of  control  to  the 
parent  process,  usually  with  a  fatal  error  message  such  as  INTERNAL 
STACK  OVERFLOW.  This  suggested  that  something  was  being  corrupted  in 
the  MS-DOS  operating  system  upon  termination  of  the  child  program. 

An  investigation  of  a  disassembly  listing  of  the  compiled 
program  revealed  that  the  JANUS/Ada  runtime  library  was  writing 
initialization  data  into  reserved  areas  in  the  Program  Segment  Prefix 
of  the  parent  program.  These  areas  are  undocumented  by  Microsoft  in 


its  official  literature,  but  have  been  identified  by  other  authors. 
Table  4.3  shows  these  locations;  (Simrin,  1987,  p.  211  -  212) 

TABLE  4.3 

JANUS/Ada  INITIALIZATION  AREAS 


Location 

Contents 

PSP: 0016 

PSP  of  parent  process 

PSP: 00 1C 

Standard  Printer  file  handle  (f i lehandleC4] ) 

PSP:001E 

f i lehandle[6J 

PSP: 0020 

f i lehandleCSJ 

PSP: 0022 

f ilehandleClOJ 

PSP; 0024 

f i lehandlet 123 

PSP: 0026 

f ilehandleC143 

Since  the  filehandles  are  indices  to  data  structures  internal 
to  the  operating  system  holding  information  about  specific  open  files, 
the  consequences  of  these  actions  are  that  the  compiled  program 
unintentionally  creates  open  filehandles  after  the  Standard  Printer 
handle  assigned  by  MS-DOS,  or  overwrite  the  filehandles  for  files 
already  opened  by  the  parent  program.  Recall  that  MS-DOS  opens  the 
first  five  handles,  and  the  application  program  opens  filehandles  after 
that  up  to  the  FILES  =  <number>  set  in  the  environment.  When  the 
JANUS/Ada  program  overwrites  these  handles,  the  indices  represented  by 
them  now  point  to  other  potentially  unrelated  areas  of  the  operating 
system  for  files  referenced  by  the  file  handles.  These  other  areas  may 
then  be  corrupted  when  the  operating  system  attempts  to  close  the  child 
process'  files  using  invalid  file  handles.  These  data  structures  are 
common  in  the  operating  system  to  both  parent  and  child.  This  may 
explain  why  the  JANUS/Ada  built  in  file  operations  and  functions  would 
no  longer  wori  after  a  single  assembly  language  call  to  operating 


24 


system  -function  calls,  as  observed  by  Works  (Works,  1986,  p.  24). 
Works  wrote  all  file  handling  procedures  for  his  program  in  assembly 
language  to  overcome  this  fault.  (Works,  1986,  p.  33) 

The  effect  of  corrupted  data  areas  in  the  operating  system  is 
to  compromise  the  internal  state  of  MS-DOS  when  the  child  process 
terminates. 

3.  Need  for  a  Replaceeent  Language 

At  this  point,  a  decision  was  made  to  implement  the  thesis  in 
a  language  that  would  support  child  processes  and  provide  a  larger 
memory  model . 

B.  TURBO  PASCAL 

While  performing  the  initial  work  for  this  thesis,  Borland 
Corporation  Turbo  Pascal  version  3.0  was  being  examined  for  the 
possible  use  of  a  construct  similar  to  its  operating  system  calls.  The 
language  utilizes  a  very  general  procedure  to  call  MS-DOS  functions  and 
software  interrupts  with  a  data  structure  standing  in  for  the  contents 
of  the  microprocessor  registers  discussed  in  Chapter  II.  With  such  a 
procedure  constructed  for  the  JANUS/Ada  language  as  a  supporting 
package,  the  large  number  of  assembly  language  procedures  and  functions 
that  Works,  Hartman  and  Yasinsac  required  could  be  abstracted  out  to  a 
single  general  purpose  procedure,  tailored  for  each  instance  by  the 
register  contents. 

When  the  difficulty  encountered  with  the  failure  of  child  processes 
in  JANUS/Ada,  a  rapid  prototyping  effort  was  used  in  Turbo  Pascal  to 
check  the  author's  understanding  of  the  requirements  for  the  EXEC  call 


in  another  language  to  detect  possible  errors  in  implementation.  The 
EXEC  function  worked  satisfactorily  in  Turbo  Pascal,  using  either  the 
MS-DOS  call  construct  or  the  compiler's  built  in  procedure.  Since  the 
Ada  implementation  appeared  to  be  infeasible,  the  program  was 
implemented  in  Turbo  Pascal.  It  turned  out  that  version  4.0  of  that 
language  has  features  that  capture  the  essence  of  the  original 
programming  objectives.  Some  particular  features  follow; 

1.  Information  Hiding 

Borland's  Turbo  Pascal  version  4.0  implements  the  Unit  as 
originally  developed  for  UCSD  Pascal  (Duntemann,  1987,  p.  11).  This 
programming  construct  allows  modular  programming  very  similar  to  Ada, 
however  separate  compilation  cannot  be  achieved  with  just  the  module 
interface  declaration,  as  it  can  in  Ada.  Variables  and  procedures 
implemented  in  the  UNIT  body  are  not  visible  by  outside  modules,  as  in 
the  Ada  package. 

2.  Support  for  Child  Processes 

Turbo  Pascal  provides  a  robust  implementation  of  the  MS-DOS 
Function  4BH,  called  EXEC.  This  is  a  high  level  procedure  that  takes 
Pascal  strings  for  the  program  path  specification  and  the  command  tail 
arguments  as  parameters.  The  procedure  utilizes  the  Turbo  Pascal 
global  variable  DOSError  to  report  operating  system  error  messages  for 
program  handling. 

3.  Data  Abstraction 

Turbo  Pascal  supports  data  abstraction  in  much  the  same  way  as 
Ada,  but  does  not  implement  a  Private  declaration. 


4 


Unit  Initialization 


The  Turbo  Pascal  Unit  provides  an  initialization  section  -for 
Units,  which  can  be  used  to  perform  unit  configuration  and  to  save 
state  information  prior  to  program  execution.  This  is  helpful  for 
saving  interrupt  vector  table  contents  for  restoration  on  program  exit. 

5.  Unit  Exit  Procedures 

Turbo  Pascal  provides  an  important  feature  by  allowing  the 
programmer  to  declare  an  exit  procedure  that  will  be  run  upon  program 
termination.  This  procedure  will  execute  for  normal  or  abnormal 
termination,  and  can  be  constructed  to  provide  error  handlers.  The 
primary  use  in  this  thesis  was  to  insure  that  interrupt  vectors  were 
prope>"ly  restored  on  program  termination. 

6.  Absolute  Variables 

Tu'-bo  Pascal  supports  manipulation  of  hardware  memory 
locations  by  allowing  the  programmer  to  specify  the  actual  location  in 
memory  of  a  data  structure.  This  is  accomplished  by  the  ABSOLUTE 
reserved  word  in  a  VAR  declaration,  and  was  used  to  declare  a  pointer 
to  reference  the  video  memory  for  windowing  operations  (Edwards,  1967, 
p .  30 )  . 

7.  File  Input  and  CXitput 

Turbo  Pascal  provides  the  capability  to  read  or  write  to 
untyped  files  in  addition  to  Wirth's  Read  and  Write  procedures.  This 
allowed  the  file  transfer  protocol  to  treat  a  file  as  a  stream  of 


bytes. 


8.  Port  Read/Write 


Turbo  Pascal  provides  Port  and  Portw  procedures  to  read  or 
write  byte  and  word  sized  variables  to  the  IBM  PC  ports.  This 
capability  was  used  in  the  serial  communications  port  module. 

9.  Interrupt  Service  Routines 

The  Turbo  Pascal  compiler  has  a  special  reserved  word, 
INTERRUPT,  that  allows  the  programmer  to  de-fine  procedures  as  interrupt 
service  routines.  The  compiler  handles  all  register  preservation  and 
stack  operations  across  the  call. 

10.  Exception  Handling 

Turbo  Pascal  does  not  implement  the  Ada  exception  handler, 
however,  the  combination  of  the  DOSError  variable  and  the  ability  to 
relax  I/O,  range  and  type  checking  within  a  local  scope  allows  the 
programmer  to  place  the  exception  handling  mechanism  in  the  control 
flow  with  standard  structured  programming  techniques.  An  EXIT 
procedure  with  a  scope  identifier  would  have  been  useful  to  escape  a 
procedure,  however,  the  current  approach  enforces  structured 
programming. 

11.  High  Level  Software  Interrupt  Procedure 

Turbo  Pascal  provides  a  predefined  procedure,  MSDOS,  and  a 
data  type,  registers,  that  allows  a  simple  and  standardized  interface 
to  the  operating  system  software  interrupt  function  calls.  The 
registers  data  type  stands  in  for  the  processor's  built  in  registers 
and  allows  the  programmer  to  treat  the  MS-DOS  functions  in  the  same 
manner  as  a  procedure.  No  assembly  language  programming  is  involved. 


12.  ROM  BIOS  and  Hardware  Interrupt  Procedure 

The  above  procedure,  MSDOS,  is  a  special  case  of  the  general 
Turbo  Pascal  procedure,  Intr  (Intr,  regs) ,  which  allows  access  to  any 
hardware  or  software  interrupt  available  on  the  IBM-PC  compatible 
microcomputer.  No  assembly  language  programming  is  involved. 

13.  Support  -for  a  Larger  MeiiKiry  Model 

Turbo  Pascal  compiles  programs  into  EXE  files,  and  greatly 
expands  the  potential  size  of  a  program.  Each  unit  has  an  independent 
code  segment,  with  a  maximum  size  of  64  Kbytes.  A  single  data  segment 
and  stack  segment  is  allowed,  each  with  their  own  64  Kbyte  limitation. 
The  remainder  of  memory,  up  to  640  Kbytes,  is  available  on  the  heap. 
The  stack  and  heap  size  may  be  set  by  compiler  directive  to  leave  room 
for  spawned  processes.  (Duntemann,  1987,  p.  12) 

C.  IMPLEMENTATION 

The  distributed  p'^ocessing  program  was  implemented  in  Turbo  Pascal 
4.0,  as  described  in  the  next  chapter.  This  language  provided  support 
for  ail  proposed  capabilities  while  eliminating  the  requirement  for 
extensive  assembly  language  programming. 


V.  THE  IMPLEMENTATION 


The  distributed  processing  program  in  this  thesis  has  its  origins 
in  an  existing  terminal  program  supporting  the  Xmodem  protocol 
(Edwards,  1987,  pp.  220  -  275).  This  "brassboard"  program  served  as 
the  -foundation  -for  the  addition  o-f  the  command  trans-fer  functions  that 
were  required  by  the  proposed  capabilities  of  the  distributed 
processing  network,  and  was  expanded  to  provide  finer  control  over 
multiple  serial  ports.  In  addition,  command  parser  and  local  execution 
modules  were  added  tor  the  Slave  microcomputer  to  execute  resident 
programs.  The  operator  interface  and  windowing  environment  was  largely 
retained  intact,  and  is  utilized  for  the  man  machine  interface. 

This  approach  allowed  the  referenced  program  to  be  modified  in 
discrete  steps,  and  provided  a  test  environment  to  exercise  each 
portion  o-f  the  implementation  listed  below. 

A.  THE  HARDWARE  CONFIGURATION 

The  hardware  used  to  implement  the  distributed  processing  network 
consists  of  IBf-'  PC ''AT  compatible  microcomputers.  Each  Slave 
mi crocomputer  is  supplied  with  a  hard  disk  drive  of  10  megabytes  or 
greater  capacity,  640  Kbytes  of  memory  and  one  RS-232C  port.  The 
Master  microcomputer  is  configured  identically,  except  it  has  an 
additional  communications  port. 

The  serial  connection  between  computers  are  the  RS-232C 
communications  ports  operating  at  9600  baud  for  IBM  PC/AT  compatible 


machines  and  4800  baud  -for  IBM  PC/AT  compatibles.  The  microcomputers 
at  each  end  o-f  a  single  link  must  be  configured  for  the  same  speed. 
The  pin  connection  for  the  interconnecting  cables  is  shown  at  Figure 
6.1.  For  microcomputers  with  the  nine  pin  AT  style  connector,  a  nine 
pin  to  RS-232C  25  pin  DB~25  cable  is  recommended,  with  a  NULL  modem  in 
between.  Hardware  handshaking  is  turned  back  in  this  configuration. 
The  program  will  operate  satisfactorily  through  a  modem  if  the  baud 
rate  is  lowered.  (Flanders,  1989,  p.  252 ) 

FIGURE  5.1 

SERIAL  PORT  CONNECTIONS 


Computer  1  Computer  2 

Pin  Function  Pin  Pin  Pin  Function 


Signal  Ground 
Transmit  Data 
Receive  Data 
Request  to  Send 
Clear  to  Send 
Carrier  Detect 
Data  Set  Ready 
Data  Terminal  Ready 


Signal  Ground 
Receive  Data 
Transmit  Date 
Request  to  Send 
Clear  to  Send 
Carrier  Detect 
Data  Set  Ready 
Data  Terminal  Ready 


B.  SOFTWARE  CONFIGURATION 

1.  The  Operating  System 

The  operating  system  is  supplied  with  the  microcomputers,  and 
is  Microsoft  MS-DOS,  version  3.0  or  higher. 

2.  The  Distributed  Processing  Program 

The  distributed  processing  program  was  written  to  accommodate 
the  above  operating  system,  and  is  used  on  both  the  Master  and  Slave 
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(Tii  crocomputers. 


3.  ZCOPY  File  Transfer  Progran 

A  high  speed,  adaptive  file  transfer  program  is  provided  with 
the  distributed  processing  system  software  that  allows  file  transfers 
to  be  executed  at  the  maximum  speed  permitted  by  the  serial 
communications  link.  The  maximum  speed  is  115  Kbytes/second.  The 
program  runs  as  a  child  process  under  the  distributed  processing 
system,  and  includes  independent  error  checking  protocols.  (Flanders, 
1989,  p.  282). 

4.  Software  Maintenance 

a.  Configuration 

Configuration  is  accomplished  by  a  built  in  function  in 
the  program,  provided  the  program  was  initialized  as  a  Master,  This 
normally  suffices  to  set  default  configuration  options,  such  as  port 
settings,  for  automatic  loading  when  the  program  is  run.  The  settings 
are  saved  in  a  file.  If  the  file  is  erased,  the  program  initiates  its 
default  settings  and  the  operator  can  then  recreate  the  file. 

b.  Software  Modification 

Software  modification  is  accomplished  through  built 
in  editing,  compilation,  and  run  time  environment  supplied  with  Turbo 
Pascal  version  4.0.  Build  and  make  utilities  are  supplied  with  the 
compiler  to  allow  program  modification  and  rebuild. 

C.  SYSTEM  DESIBN 

The  problem  of  designing  a  distributed  processing  network  was 
decomposed  into  the  following  efforts; 

1.  The  command  parser  fon  the  remote  (slave)  microcomputer. 


2.  The  execution  o-f  child  processes. 

3.  Redirection  of  child  process  output. 

4.  File  and  command  trans-fer  via  Xmodem. 

5.  Serial  communications. 

6.  The  man  machine  inter-face. 

1.  The  Coamand  Parser 

The  command  parser  decomposes  an  MS-DOS  command  directed  to 
the  Slave  microcomputer  for  execution  into  its  component  disk  drive, 
path,  command  or  executable  file  name,  and  command  arguments.  The 
latter  is  commonly  called  the  command  tail.  Since  compatibility  with 
the  current  MS-DOS  command  syntax  was  desired,  these  commands  take  the 
form: 

[drive: ]C\]Cdirectory\3. . CdirectoryM  command  [command  tail] 
Once  parsed,  the  type  of  command  is  determined  so  that  the  Slave 
computer  can  execute  it  properly.  As  an  experiment,  the  Unix  commands 
CAT  and  LS  are  mapped  i:^^  their  MS-DOS  equivalents  to  demonstrate  a 
Slave  with  limited  bilingual  capabilities. 

2.  The  Execution  of  Child  Processes 

Once  the  command  is  parsed,  the  parser  must  properly  determine 
if  the  command  cited  is  a  command  normally  executed  internally  by 
MS-DOS,  an  executable  COM  or  EXE  file,  or  refers  to  a  directory 
operation.  Internal  MS-DOS  commands  implemented  within  the  distributed 
processing  program  are  detected  by  pattern  matching,  the  remainder  are 
identified  by  conducting  an  iterative  search  across  the  specified 
directory  (or  the  current  directory  if  none  is  cited  in  the  remote 
command)  for  an  executable  file  of  the  appropriate  extension,  utilizing 


the  Turbo  Pascal  built  in  -functions  Find_First  and  Find_Next.  I-f 
■found,  the  type  o-f  -file  is  passed  by  the  parser  to  the  appropriate 
execution  routine.  The  executable  -files  are  those  with  COM,  EXE  or  BAT 
extensions.  MS-DOS  does  not  require  the  operator  to  enter  the 
extension,  and  will  execute  the  -first  -file  encountered  with  the  command 
name  and  an  executable  extension  in  the  following  order:  COM,  EXE  and 
BAT.  The  parser  copies  this  trait.  Implementation  of  the  different 
command  types  is  summarized  below, 
a.  Internal  CoHMiands 

Internal  commands  are  those  that  are  executed  within  the 
MS-DOS  command  processor,  and  are  available  from  the  familiar  A) 
prompt.  These  include  the  directory  manipulation  commands  ChDir,  Copy, 
Del,  Dir,  MkDir,  Ren,  RmDir  and  disk  drive  login;  to  which  were  added  a 
prompt  command  to  obtain  the  current  directory  on  the  Slave 
microcomputer  for  display  at  the  remote,  and  Equip,  which  provides  the 
Slave  conf iguration  (disk  drives,  memory,  etc)  accessible  to  the  ROM 
BIOS  interrupt  til  (MS-DOS  Version  3.21  User's  Guide).  ChDir,  MkDir, 
end  RmDir  along  with  Prompt  are  provided  within  the  distributed 
processing  program.  Error  messages  are  supplied  from  the  MS-DOS 
operating  system,  hence,  they  are  identical  to  those  encountered  in 
local  operations.  Rather  than  duplicate  the  capabilities  of  the  MS-DOS 
command  processor  for  the  remaining  commands,  MS-DOS  is  utilized  to 
assist  in  this  effort.  A  secondary  copy  of  the  MS-DOS  command 
processor  is  located  by  inspecting  the  "COMSPEC=<path/name.' "  string 
f’^orn  the  local  environment  area,  and  is  spawned  with  the  appropriate 


command  tail  for  the  desired  command.  This  allows  the  remote  command 


to  execute  as  if  it  were  entered  from  the  Slave  microcomputer's 
keyboard,  and  provides  a  familiar  response.  A  utility  program  in  the 
public  domain  was  utilized  as  a  programming  template  to  detect  the 
proper  course  of  action  before  spawning  a  child  process,  depending  on 
the  type  of  command  received.  (Mefford,  1988,  pp.  321  -  336) 

b.  External  (Executable)  Coaaands 

External  commands  are  those  that  require  the  distributed 
processing  program  to  load,  execute  and  collect  output  for  display. 
These  are  the  familiar  COM,  EXE,  and  BAT  files  found  in  directory 
listings.  These  commands  are  executed  by  calling  the  Turbo  Pascal  EXEC 
procedure  directly  from  the  distributed  processing  program,  with  the 
explicit  path  specification  required  by  the  procedure  supplied  by  the 
parser  in  its  search  for  the  executable  file.  The  command  tail  is 
provided  from  the  parsing  operation.  Batch  files  are  handled  by 
spawning  a  secondary  copy  of  the  command  processor  with  the  batch  file 
name  as  the  command  tail,  as  described  for  selected  internal  commands. 
(Mefford,  1988,  p.  327) 

3.  Redirection 

Redirection  control  is  contained  in  a  separate  module  that 
contains  most  of  the  Turbo  Pascal  EXEC  calls.  Prior  to  spawning  an 
executable  file,  a  variable  is  checked  to  determine  if  the  program 
output  IS  to  be  redirected  to  a  file  managed  by  the  distributed 
processing  program.  This  file  is  used  to  send  the  program  output  back 
to  the  Master  microcomputer  over  the  communications  channel  by  the 
Xmodem  protocol  after  execution  of  the  program  cited  in  the  remote 
command.  The  variable  is  managed  by  the  module  ini ti 1 ization  routines 


and  is  normally  set  -for  redirection,  otherwise  the  program  output  would 
appear  on  the  Slave  microcomputer  screen.  H  redirection  is  desired, 
the  distributed  processing  program  redirects  its  own  output  to  the 
redirection  file,  utilizing  the  MS-DOS  Function  Calls  45H  (DUPlicate 
handle)  and  46H  <F0RCDUP1 icate  handle)  as  described  in  Chapter  III. 
Since  the  child  process  inherits  all  open  files  from  the  parent  (in 
this  case  the  distributed  processing  program),  it  proceeds  through  the 
execution  oblivious  to  the  redirected  output.  Error  reports  are  also 
available  in  the  redirected  output  file,  which  overcomes  a  limitation 
of  redirection  invoked  from  the  command  line  with  the  <,  >,  >>  and  1 
symbols.  The  appropriate  files  are  then  available  to  forward  to  the 
Master  mi crocomputer .  (Breco,  1987.  p.  25) 

4.  File  and  Command  Transfer  via  Xmodem 

Since  the  Xmodem  protocol  is  utilized  for  both  command  and 
data  transfer,  the  highly  modularized  approach  found  in  (Krantz,  1985, 
pp.  66  -  89)  is  implemented  to  handle  synchronization,  packet  transfer, 
and  file  transfer  under  flow  control  in  a  hierarchical  manner.  The 
modular  approach  does  require  a  large  number  of  variables  that  are 
global  in  scope  to  the  different  building  blocks,  however,  the 
concentration  of  these  variables  and  their  associated  function  and 
procedure  implementations  in  a  Turbo  Pascal  Unit  as  private  variables 
preserved  information  hiding.  An  additional  file  transfer  program, 
Zcopy,  is  available  as  an  operator  option  on  the  Master  display  and 
allows  the  use  of  an  adaptive  protocol  that  transfers  files  at  the 
maximum  speed  of  the  communications  link,  regardless  of  settings. 
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Serial  Coeeuni cations 


All  communications  between  the  Master  and  Slave  microcomputers 
are  handled  by  the  microcomputers  standard  serial  communications  ports. 
Communications  is  at  9600  baud  -for  communications  between  IBM  PC/AT 
compatibles,  and  at  4800  tor  IBM  PC  compatibles.  The  interrupt  service 
routines  handle  receive  character  streams  tor  hardware  ports  COMl  and 
COM2,  and  are  adapted  trom  source  listings  posted  on  the 
into-pascal0vim.brl.mil  network  (Kimura,  1988)  and  (de  Boer,  1988). 
Receive  characters  are  queued  in  a  receive  butter  tor  each  port. 
Transmit  characters  are  sent  under  program  control  in  a  polling  loop. 

6.  Man  Machine  Interface 

The  program  uses  the  same  operator  intertace  tor  both  the 
Master  and  Slave  contigurations.  Initialization  is  accomplished  from  a 
configuration  tile  in  the  local  directory  or  trom  default  constants  it 
the  file  is  absent.  When  initialized,  the  program  presents  a  terminal 
screen  tor  the  primary  port  with  communications  inhibited.  The 
opef-ator  is  then  able  to  select  options  by  special  key  combinations 
(Alt-keys)  to  revise  the  configuration  tile,  initialize  communications 
ports,  enable  and  disable  receive  interrupts  on  a  port  basis,  and 
select  the  current  port  tor  use  with  tile  transfers  and  command 
transfers  to  the  connected  slave.  File,  command  transfers,  and  the 
output  of  the  remote  Slave  computer  is  available  on  a  monitor  window. 
Status  windows  are  shown  tor  critical  parameters. 

The  Slave  microcomputer  is  operated  in  an  infinite  loop  to 
receive  and  process  commands.  Local  operation  may  be  restored  (at  the 
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cost  0-f  disabling  server  -functions)  by  pressing  a  local  key  which 
aborts  the  Slave  program. 

D.  DESIGN  CONSIDERATIONS 

1.  Asseiibly  Language 

Assembly  language  is  used  in  only  two  locations  in  this 
thesis,  -for  the  purposes  of  code  optimization.  The  first  is  to  move 
data  between  the  screen  buffer  and  a  storage  location  to  open  and  close 
windows  on  the  screen  as  used  in  the  windowing  module.  The  second  is 
to  enable  and  disable  CPU  interrupts  for  the  interrupt  service  routines 
contained  in  the  dat?  communications  module.  Both  instances  utilize 
built  in  assembly  language  facilities  of  the  compiler.  The  remainder 
of  the  program  is  coded  in  the  Turbo  Pascal  dialect. 

2.  ROM  BIOS  Software  Interrupts 

Calls  are  made  to  the  ROM  BIOS  of  the  IBM  PC  compatible 
computers  to  perform  communications  port  speed  initialization 
(interrupt  $14) ,  and  to  obtain  the  machine  disk  drive,  memory,  and 
communications  port  configuration  for  display  ($11). 

3.  Memory  Management 

Memory  management  is  handled  by  the  Turbo  Pascal  compiler 
in  accordance  with  the  $M  compiler  directive.  This  was  adjusted  from 
that  offered  by  the  Turbo  version  3.0  to  version  4.0  conversion 
utility,  which  allocated  all  memory  to  the  distributed  processing 
program.  By  reducing  the  size  of  the  heap,  child  processes  and  MS-DOS 
shells  can  be  run  from  the  program  as  a  prent.  The  primary  consumer 
of  heap  memory  is  for  dynamic  allocation  of  memory  to  save  screen 
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displays  ior  windowing.  Current  program  memory  requirements  are  less 
than  75  Kbytes,  exclusive  o-f  the  MS-DOS  operating  system  and  any 
Terminate  and  Stay  Resident  programs  run  be-fore  the  program.  The  use 
o-f  Terminate  and  Stay  Resident  programs  is  not  recommended  due  to 
unpredictable  side  e-f-fects. 

4.  Synchronization 

Synchronization  is  normally  maintained  by  starting  the  Slave 
microcomputer  in  the  command  receive  mode  and  then  executing  in  an 
endless  loop.  The  Master  computer  operator  must  initialize  the 
communications  ports  (if  required)  and  connect  to  the  appropriate  port 
to  access  the  desired  Slave.  Commands  are  normally  passed  to  the  Slave 
and  responses  displayed  on  the  Master,  however,  if  the  Master  computer 
:s  redirected  to  another  tasr  while  the  Slave  is  processing  the 
request,  the  Slave  will  wait  on  the  Master  with  its  response.  This  is 
a  functionality  of  the  Xmodem  protocol,  which  is  receiver  driven.  A 
resynchronization  command  is  available  to  the  Master  operator  to  force 
the  Slave  back  into  the  command  receive  mode  if  required.  The  process 
is  currently  manual,  and  depends  on  operator  familiarity  with  the 
likely  Slave  responses.  Adequate,  although  not  necessarily  automated, 
status  responses  are  available  to  the  Master  operator  to  determine  the 
Slave  state. 

5.  Modular  Programning 

The  windowing  support  unit,  the  Xmodem  file  and  command 
transfer  protocol,  and  the  RS-232C  serial  communications  port  and 
interrupt  service  routines  are  contained  in  separate  units.  In  the 
case  of  the  Xmodem  unit  and  the  data  communications  unit,  the  original 


terminal  program  inter-face  is  retained  although  the  implementation  is 
considerably  different.  This  was  intentionally  done  to  create  the 
potential  to  p'^ovide  a  different  transfer  protocol  or  to  use  a 
different  network  by  redesigning  the  implementation  section  of  the 
unit,  and  to  demonstrate  information  hiding.  The  windowing  unit  was 
simply  converted  to  a  Turbo  Pascal  unit  (Edwards,  1987,  pp.  50  -  98), 
along  with  a  general  support  unit  (Edwards,  1987,  pp.  66  -  73). 

6.  Preservation  of  Interrupt  Vectors  on  Prograe  Terai nation 

The  manipulation  of  the  vectors  in  the  IBM-PC  interrupt  vector 
table  provides  a  powerful  means  to  enhance  the  capabilities  of  the 
machine,  whether  to  incorporate  new  hardware  or  to  adapt  an  existing 
capability  in  software.  The  potential  is  equally  high  to  lose  control 
of  the  system  if  the  interrupt  vectors  are  not  restored  when  the 
program  ends.  This  must  be  handled  for  normal  termination  as  well  as 
unplanned,  or  abnormal  termination. 


E.  SYSTEM  EXECUTION 
1.  Initialization 

The  program  contains  all  functions  for  operation  as  either  a 
Master  or  Slave  microcomputer  on  the  distributed  processing  network. 
The  operating  selection  is  made  when  the  program  is  run,  either  by 
Distrib  Master 

for  operation  as  a  master,  or  by 
Distrib 


or 


Distrib  Server 
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■for  operation  as  a  Slave.  The  program  than  searches  for  its 
configuration  file  and  uses  that  to  set  the  default  communications  port 
settings,  screen  colors,  etc.  If  not  found,  the  program  utilizes  built 
in  defaults. 

2.  Slave  Operation 

Slave  operation  is  automatic,  with  the  program  initializing 
its  communications  port  (default  is  normally  COMl),  and  entering  the 
command  processing  mode  in  an  infinite  loop.  This  loop  may  be  reset  by 
the  remote  Master  if  the  Slave  is  expecting  to  return  a  sequence  of 
responses  from  a  completed  command,  and  the  Master  operator  decides  to 
abandon  the  command  after  execution.  In  this  case,  the  Slave  is  reset 
ove*-  the  communications  port  to  the  beginning  of  the  command  receive 
loop  to  prepare  for  the  next  command.  The  program  is  aborted  and 
contf-ol  IS  returned  to  the  operating  system  if  any  key  on  the  Slave 
keyboard  is  depressed.  No  warning  is  sent  to  the  Master,  since  the 
Master  may  be  communicating  with  another  Slave  and  receive  buffers  are 
purged  to  begin  a  new  communications  sequence  as  recommended  in  the 
Xmodem  protocol.  The  Master  operator  can  check  for  a  "live"  Slave  by 
watching  for  the  received  NAK  characters,  displayed  each  five  seconds 
over  the  receive  channel,  or  enter  receive  mode  to  display  a  program 
response  from  the  Slave. 

3.  Master  Operation 

Master  operations  are  menu  driven.  Upon  initialization,  the 
Master  displays  a  status  bar  showing  the  current  communications  port 
selected  at  the  bottom  of  the  screen  and  queues  the  operator  to  depress 
the  HOME  key  for  a  list  of  commands  available.  The  proqram  otherwise 


displays  a  blanl:  terminal  screen  although  the  communications  ports  are 
disabled  for  receive  on  startup.  When  the  operator  depresses  the  HOME 
key,  a  window  appears  that  offers  the  following  command  selections  with 
a  menu  bar  that  can  be  positioned  to  select  the  desired  command.  The 
operator  is  also  reminded  that  the  listed  commands  may  be  selected  from 
the  terminal  screen  by  depressing  the  Alt  -  <kBy>  combination.  The 
commands  are: 

Alt-A  Change  drive  path 
Alt-P  Send  a  Break  signal 
Alt-C  Update  Config  File 
Alt-D  Dialing  Directory 
Alt-E  Local  echo  toggle 
Alt-F  Change  DC  params 
Alt-5  Show  disk  directory 
Alt-H  Hang  up  phone 
Alt-L  DOS  Shell 
Alt-M  Activate  Master 
Alt-P  Port  Operations 
PgDn , 

Alt-P  XMODEM  Get  a  file 
Alt-S  Activate  Server 
PgUp , 

Alt-T  XMODEM  Put  a  file 
Alt-X  (ESC)  Exit  emulator 

A  more  complete  discussion  of  the  different  commands  is  found  in 
Appendi'  A,  the  Operator's  Manual.  The  following  is  a  summary  of 
capabi 1 1 ti es ,  as  seen  from  the  Master  microcomputer. 

a.  Terminal  Operations 

The  opening  screen  of  the  program  is  adequate  to  perform 
teletype  terminal  communications  over  the  currently  selected 
communications  port,  once  properly  initialized.  The  initialization 
commands  are  found  in  the  Activate  master  subscreens. 
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b.  Port  Initialization 

The  menu  selections  available  allow  the  operator  to 
override  the  default  communications  ports  settings  and  to  select  a 
communications  port  tor  communications  with  the  remote  Slave.  An  ESC 
key  returns  the  operator  to  the  terminal  screen. 

c.  Remote  Login  to  Slave 

Most  operations  are  accomplished  at  the  Slave  by  using 
the  remote  login  -function.  The  command  is  packetized  at  the  Master  and 
sent  to  the  Slave  as  a  128  byte  Xmodem  packet.  Upon  success-ful  receipt 
at  the  Slave  (signalled  by  an  ACK  character  received  at  the  Master), 
the  Master  then  assumes  the  Xmodem  receive  -function  to  await  the 
response  from  the  Slave.  The  Slave  then  sends  a  packet  back  with  a 
prompt  containing  its  current  directory  and  drive.  This  prompt  is 
structured  to  look  like  the  operating  system  prompt.  Once  received  by 
the  Mastc",  the  Slave  reverts  to  command  receive  mode  to  await  the  next 
command.  The  Master  displays  a  window  to  prompt  the  operator  -for  the 
next  command  to  send  to  the  Slave,  or  to  quit  the  command  mode.  If  a 
command  is  sent,  it  is  packetized  and  transmitted  as  before. 

d.  Remote  Program  Execution 

Programs  are  run  on  the  Slave  microcomputer  in  response 
to  commands  received  from  the  Master.  Once  the  command  is  parsed,  the 
program  handles  some  commands  internally  and  runs  a  program  as  a  child 
process  to  accomplish  those  commands  it  does  not  recognize  internally. 
For  spawned  programs,  the  program  output  is  captured  in  a  file  and  then 

The  Master  waits  for  the  response  after 
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sent  back  to  the  Master. 


sending  the  command.  Responses  may  be  a  series  o-f  strings  or  files, 
and  are  displayed  on  the  Master  remote  login  window. 

e.  Flow  Control 

Flow  control  (selection  of  receiver  and  sender)  is  in 
accordance  with  the  Xmodem  protocol,  with  one  exception.  An  EOT  (End 
of  Transmission  character  is  specified  in  that  protocol  to  signal  a 
complete  transmission.  In  order  to  accomplish  multiple  string  or  file 
transmission  from  the  Slave  to  the  Master  to  forward  the  output  of  a 
spawned  program,  the  Master  interprets  each  received  EOT  character  as 
an  end  of  transaction  (string  or  file)  as  in  the  original  protocol,  but 
does  not  end  its  receive  operations  until  a  CAN  character  is  received 
from  the  Slave  to  signal  the  end  of  the  command  and  response  sequence. 

f .  Remote  Reset 

Related  to  flow  control  is  the  ability  for  the  Master 
(Tii crocomputer  to  reset  the  flow  direction  if  the  Master  and  Slave 
Til crocomputers  lose  synchronization.  This  may  happen  between  the 
command  transfer  to  the  Slave  and  the  response  from  that  microcomputer, 
and  is  usually  exhibited  by  both  microcomputers  attempting  to  send  or 
receive  at  the  same  time.  The  Master  operator  may  break  the  deadlock 
by  sending  a  series  of  CAN  characters  to  the  Slave  to  force  it  back 
into  the  command  mode. 

g.  File  Transfer 

To  send  a  file,  the  operator  selects  the  ZCOPY  option  to 
the  remote  microcomputer  and  the  system  prompts  for  a  filename.  A 
complete  path  may  be  specified.  Once  selected,  the  program  invokes  a 
copy  of  the  ZCOPY  program  at  the  Slave  and  places  it  in  ZCOF'Y  Server 
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mode.  The  Slave  then  waits  -for  the  handshaking  protocol  from  the  ZCOPY 
program  at  the  Master  (also  spawned),  and  establishes  a  link  over  the 
serial  port  at  the  maximum  reliable  data  rate.  Once  the  transfer  is 
complete,  both  copies  o-f  ZCOPY  terminate  and  control  is  restored  to  the 
distributed  processing  program  at  the  established  data  rates.  The 
Slave  then  reports  the  ZCOPY  program  output  to  the  Master. 

F.  THE  MODULES 

The  -following  program  modules  are  contained  in  the  distributed 
processing  program. 

1.  Distrib 

Distrib  is  the  main  program  -for  both  the  Master  and  Slave 
computers. 

2.  DataCoffl 

Unit  DataCom  provides  all  procedures  and  -functions  needed  to 
initialize  the  computer  serial  communications  ports,  enable  and  disable 
receive  interrupts,  provide  buffered  reception  of  characters,  clear  the 
receive  buffer (=),  send  or  receive  bytes  through  the  ports,  send  a 
BREAK'  signal  over  the  RS-232  port,  and  nondestructi vel y  read  the 
receive  buffer (s>.  It  supports  Unit  Xmodem  and  the  terminal  portion  of 
Distrib.  The  currently  selected  communications  port  is  contained  in 
public  variable  Current_Com. 

3.  Director 

Unit  Director  is  a.  set  of  functions  and  procedures  that  allow 
the  output  MS  DOS  file  directories  to  a  windowed  environment.  Masking 
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options  and  a  selector  -for  normal  or  abbreviated  (similar  to  the  MS-DOS 
/w  switch)  displays  are  allowed. 


4.  ErrorCod 

ErrorCod  is  a  array  O'f  string  constants  mapped  by  the  DOS 
Error  Code,  Error  Class,  Recommended  Error  Action  and  Error  Locus 
indices  found  in  (Microsoft,  1986,  pp.  3-1  -  3.11,  4.254  -  4.255).  The 
unit  is  used  by  the  units  Parser,  Spawn  and  the  program  Distrib  to 
report  errors.  A  procedure  is  also  provided  to  retrieve  extended  error 
code  information  available  in  MS-DOS  versions  3.0  and  above  by  DOS 
function  call  59H. 

5.  General 

The  General  Unit  is  a  collection  of  general  purpose  routines 
that  support  the  Wndow  Unit  and  other  modules.  (Edwards,  1987,  pp, 
66  -  73) 

6.  MiscPack 

Unit  Miscpack  is  a  collection  of  data  types  and  utility 
routines  supporting  these  other  units;  Xmodm,  Parser,  Spawn,  Redirect, 
and  the  main  program  Distrib.  The  strong  typing  features  of  Turbo 
Pascal  require  that  instances  of  data  types  in  different  units  that 
must  be  equated  be  declared  in  one  place  to  be  compatible  at  compile 
time.  (Swan,  1986,  pp.  14  -  23) 

7.  Parser 

Unit  Parser  contains  a  central  procedure,  Parser_Main,  which 
attempts  to  parse  and  execute  an  MS-DOS  style  command  on  the  local 
machine.  The  remaining  procedures  and  functions  support  this  function. 


46 


8 


Redirect 


Unit  Redirect  is  a  set  o-f  -functions  and  procedures  that  allow 
the  output  o-f  programs  spawned  under  the  Slave  computer's  copy  of  the 
main  program  Distrib  to  be  redirected  to  files.  Once  the  program  ends, 
the  Slave  computer  can  then  forward  the  output  normally  displayed  on 
the  screen  to  the  Master  computer  for  display. 

9.  Spawn 

This  Unit  detects  commands  that  should  be  processed  internally 
by  the  Distrib  program,  and  executes  commands  internally  or  by  spawning 
a  child  process.  Command  output  and  error  responses  are  returned  to 
the  caller  either  as  strings  suitable  for  conversion  to  Xmodm  packets, 
or  by  reference  to  files  containing  the  text.  This  unit  also  contains 
the  redirection  switch  as  a  public  variable  that  dictates  whether 
program  output  will  be  redirected  to  a  file  or  displayed  locally  on  the 
screen.  This  switch  is  normally  set  to  redirect  to  file. 

10.  Support 

The  Support  Unit  contains  most  of  the  constant  declarations 
for  the  program,  along  ith  the  initialisation  procedure  some  general 
purpcsS-  procedures  as  found  in  the  original  terminal  program. 
(Edwards,  1987,  pp.  241  -  272) 

11 .  Undow 

The  Wndow  Unit  provides  all  window  creation,  memory 
allocation,  display,  menu  bar  processing,  closure  and  memory 
deallocation  functions  for  the  program  Distrib.  The  unit  was  changed 
from  an  include  file  to  a  unit,  but  not  otherwise  changed  from  that 
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originally  developed  by  the  author  in  (Edwards,  1907,  pp.  50-98).  The 
purpose  descriptions  are  -from  the  author. 

12.  Xmodn 

This  Unit  handles  all  requests  Tor  Xmodem  protocol  packet  and 
■file  transmission  and  reception. 
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VI.  CONCLUSIONS 


The  program  developed  and  implemented  -for  this  thesis  successfully 
demonstrated  the  capability  for  unmodified  IBM  PC/AT  compatible 
microcomputers  to  operate  in  a  distributed  processing  network.  A  small 
star  network  consisting  of  one  master  microcomputer  and  two  slave 
microcomputers  was  installed  and  operated  in  a  laboratory  environment. 

The  network  displayed  the  capability  of  transferring  program  and 
data  files  between  the  master  microcomputer  and  either  of  the  slave 
microcomputers,  and  the  capability  of  the  master  to  command  the 
execution  of  MS-DOS  commands  and  executable  programs  on  the  slaves. 
The  network  further  demonstrated  that  the  output  of  the  commands  or 
programs  could  be  displayed  on  the  master  computer.  A  simple  error 
recovery  methodology  was  also  demonstrated. 

Implementation  of  this  program  was  not  feasible  in  RR  Software, 
Inc.  JANUS/Ada,  due  to  unexpected  problems  in  the  implementation  of 
that  subset  of  the  Ada  language  and  that  compiler's  design.  This  is 
not  a  fault  of  the  Ada  programming  language.  These  design  deficiencies 
in  the  JANUS/Ada  were  specific  to  the  implementation  in  an  MS-DOS  or 
CP/M  environment;  and  caused  fatal  operating  system  faults  when  a  child 
process  was  executed  from  the  command  parser,  as  implemented  in 
JANUS/Ada.  The  amount  of  code  emitted  by  the  compiler  also  appeared  to 
be  relatively  large.  It  should  be  noted  that  the  compiler  available 
for  this  thesis  was  relatively,  old,  version  1.5.2,  and  as  a  subset  of 
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the  Ada  language  was  not  validated.  It  may  be  that  the  current, 
validated  version  has  corrected  these  de-f iciencies. 

Borland  Corporation.  Turbo  Pascal  proved  to  be  a  viable  programming 
environment  -for  this  thesis,  and  provided  many  oT  the  teatures  desired 
from  the  Ada  programming  language.  These  include  information  hiding 
through  modular  program  and  the  unit  structure,  data  abstraction, 
strong  typing,  and  high  level  procedures  for  file  input  and  output, 
access  to  the  microcomputer  input/output  ports,  and  a  standardized 
interface  to  the  system  software  interrupts.  Assembly  language 
programming  was  not  required,  and  was  used  in  two  isolated  locations  to 
implement  replacement  interrupt  service  routines  and  enhance  block  data 
movement . 


APPENDIX  A 


OPERATOR'S  HANUAL 


A.  STARTIP 


The  distributed  processing  program  is  designed  to  operate  on  an  IBM 
PC/AT  compatible  microcomputer  such  as  the  Zenith  Z-248.  Minimum 
configuration  is  a  10  Mbyte  or  larger  hard  drive,  640  Kbytes  o-f  memory, 
an  EGA  or  VGA  monitor,  and  at  least  one  ■floppy  ■for  program  loading. 
The  ■following  ■files  should  be  resident  on  the  hard  disk  in  the  desired 
directory:  DISTRIB.EXE,  DISTRIB.CFG,  DISTRIB.PHN.  A  subdirectory 
should  exist  o^ff  the  root  directory  o^f  the  hard  disk  named  SCRATCH  ■for 
the  maintenance  o^f  redirected  output  ■files  generated  by  the  Slave 
program.  The  ■file  transfer  program  ZCOPY.COM  should  be  available  in 
the  DISTRIB.EXE  directory. 

The  microcomputers  must  be  connected  by  a  null  modem  and 
appropriate  cables  before  the  network  will  operate.  Turn  on  the  Slave 
microcomputer (s)  first. 


B.  Slave  Operation 

Slave  operation  is  automatic.  For  convenience,  if  the 
microcomputer  is  to  be  used  largely  as  a  Slave  in  the  distributed 
processing  network,  an  AUTOEXEC.BAT  file  may  be  placed  on  the  boot 
drive  root  directory  that  specifies  the  complete  drive  and  path 
specif ication  for  the  program,  with  the  following  program  name; 

Cdri ve] CpathlDISTRIB  Server 

On  startup,  the  program  will  load,  initialise  and  display  a 
status  screen  with  a  monitor  window  for  remote  commands  and  the  Slave's 
responses.  Operation  of  the  Slave  may  be  monitored  from  the  display 
screen.  The  program  is  aborted  and  control  is  returned  to  the 
operating  system  if  any  key  on  the  Slave  keyboard  is  depressed.  No 
warning  is  sent  to  the  Master. 


C.  Master  Operation 

Master  operations  are  menu  driven.  For  convenience,  if  the 
microcomputer  is  to  be  used  largely  as  a  Slave  in  the  distributed 
processing  network,  an  AUTOEXEC.BAT  file  may  be  placed  on  the  boot 
drive  root  directory  that  specifies  the  complete  drive  and  path 
specification  for  the  program,  with  the  following  program  name: 
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Cdri ve]Cpath]DISTRIB  Master 


On  startup,  the  program  will  load,  initialize  and  display  a 
status  bar  at  the  bottom.  This  bar  shows  the  current  communications 
port  selected  at  the  bottom  of  the  screen  and  queues  the  operator  to 
depress  the  HOME  key  for  a  list  of  commands  available.  The  program 
otherwise  displays  a  blank  terminal  screen  although  the  communications 
ports  are  disabled  for  receive  on  startup.  When  the  operator  depresses 
the  HOME  key,  a  window  appears  that  offers  the  following  command 
selections  with  a  menu  bar  that  can  be  positioned  to  select  the  desired 
command.  The  operator  is  also  reminded  that  the  listed  commands  may  be 
selected  from  the  terminal  screen  by  depressing  the  Alt  -  <key> 
combination.  The  commands  are: 


Alt-A 

Change  drive  ?<  path 

Alt-B 

Send  a  Break  signal 

Alt-C 

Update  Config  File 

Alt-D 

Dialing  Directory 

Alt-E 

Local  echo  toggle 

Alt-F 

Change  DC  params 

Alt-G 

Show  disk  directory 

Alt-H 

Hang  up  phone 

Alt-L 

DOS  Shell 

Alt-M 

Activate  Master 

Alt-P 

Port  Operations 

PgDn , 

A1  t-R 

XMODEM  Get  a  file 

Alt-S 

Activate  Server 

PgUp , 
Alt-T 

XMODEM  Put  a  file 

Alt-X 

(ESC)  Exit  emulator 

These  commands  are  discussed  individually  in  the  following 
sections.  What  follows  is  a  general  sequence  of  commands  or  selections 
to  accomplish  processing  on  the  Slave  microcomputer. 

1.  Terminal  Operations 

The  opening  screen  of  the  program  is  adequate  to  perform 
teletype  terminal  communications  over  the  currently  selected 
communications  port,  once  properly  initialized.  The  initialization 
commands  are  found  in  the  Activate  Master  s-ibscreens. 

2.  Remote  Login 

The  Slave  microcomputer  ma''  he  operated  as  though  the  Master 
operator  is  entering  commands  f  ; m  its  keyboard  and  observing  the 
results  on  its  display.  These  functions  are  remoted  to  the  Master 
screen . 


To  log  in  to  the  Slave,  select  Activate  Master  -from  the  main 
menu  and  then  select  options  -from  the  secondary  menu  to  establish  the 
correct  baud  rate,  parity,  -for  the  port  connected  to  the  desired  Slave 
and  to  connect  the  port.  The  de-fault  settings  are  usually  satis-factory 
once  the  network  is  established.  The  Master  cannot  reset  the  Slave's 
port  parameters  remotely.  Once  the  port  is  connected,  select  Remote 
Login  -from  the  Activate  Master  menu.  A-fter  a  moment  -for  the  exchange 
o-f  command  and  response,  the  Slave's  local  directory  will  be  displayed. 
From  this  point,  any  MS-DOS  command  or  program  entered  at  the  Master 
may  be  run  on  the  Slave  and  the  output  will  be  displayed  at  the  Master. 

3.  Initialize  Port,  Connect  Port,  Disconnect  Port 

These  commands  are  used  to  set  the  communications  port 
settings,  and  to  establish  a  link  to  the  attached  Slave  microcomputer. 
Both  the  Slave  and  Master  microcomputers  must  be  set  up  at  the  same 
serial  port  parameters  to  communicate.  To  change  to  a  di-f-ferent  Slave 
(port) ,  either  first  disconnect  the  current  port  and  connect  the 
desired  port,  or  simply  connect  the  new  port. 

4.  Equipment  Status 

This  command  will  return  the  Slave  configuration  on  the  Master 
screen.  Tne  number  of  disk  drives,  communications  ports,  and  available 
memory  is  displayed. 

5.  ZCOPY 

These  commands  allow  file  transfers  from  or  to  the  connected 
Slave.  Upon  activation,  the  program  will  prompt  for  the  file  name  to 

be  sent  or  received.  If  the  copy  will  result  in  another  file  of  the 

same  name  being  overwritten,  confirmation  will  be  asked.  The  Master 
will  display  the  Slave's  ZCOPY  program  output  after  the  transfer  is 
complete.  This  is  useful  i f  an  error  occurs. 

6.  Reset  Remote 

This  command  is  useful  if  the  Slave  was  operating 

satisfactorily  and  now  appears  unresponsive.  It  aborts  any  protocol 
transfer  in  progress  and  restores  flow  control  the  command  receive 
mode. 

7.  Exit  (ESC) 

This  exits  the  Activate  Master 

communications  port  selections  remain  intact. 


environment. 


All 


D.  COmAND  SUnriARY 


The  remaining  commands  accessed  -from  the  main  screen  are: 

1.  Alt-A  Change  drive  &  path 

This  command  changes  the  current  disk  drive  and  path  tor  tile 
transters  or  directory  operations.  It  also  determines  the  starting 
directory  tor  a  DOS  shell. 

2.  Alt-B  Send  a  Break  signal 

This  command  sends  an  RS-232C  break  signal  over  the  currently 
selected  communications  port. 

3.  Alt-C  Update  Contig  File 

This  command  allows  the  operator  to  display  the  current 
program  contiguration  parameters  as  tound  in  the  tile  DISTRIB.CFB,  in 
the  current  directory.  An  error  indication  is  given  it  the  tile  is  not 
tound.  The  operator  can  select  any  ot  the  displayed  parameters  to 
change,  and  a  range  ot  options  is  displayed.  Detault  settings  tor  the 
communications  ports,  the  modem  dialing  preti::,  and  screen  color 
settings  are  provided. 

4.  Alt-D  Dialing  Directory 

This  command  allows  the  operator  to  dial  a  telephone  number 
trom  a  list  ot  stored  numbers,  or  a  number  entered  manually  trom  the 
keyboard.  This  command  assumes  a  Hayes  compatible  modem. 

5.  Alt-E  Local  echo  toggle 

Intended  tor  terminal  operations,  this  command  sets  a  halt 
duple;  toggle  to  display  transmitted  as  well  as  received  commands  it 
the  remote  terminal  does  not  echo  received  characters. 

6.  Alt-F  Change  DC  params 

This  command  allows  the  operator  to  set  the  baud  rate,  word 
length,  parity  and  stop  bits  tor  the  currently  selected  communications 
port,  to  override  the  contiguration  settings. 

7.  Alt-G  Show  disk  directory 

This  command  displays  the  local  disk  directory,  in  MS-DOS 
standard  or  /w  tormats. 

8.  Alt-H  Hang  up  phone 

This  command  tells  the  modem  to  disconnect  the  telephone  line. 
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Alt-L  DOS  Shell 


This  command  executes  a  secondary  copy  o-f  the  MS-DOS  command 
processor  to  alloM  the  operator  to  utilize  the  operating  system  without 
terminating  the  distributing  processing  program. 

10.  Alt-M  Activate  Master 

This  command  opens  a  second  set  of  commands  to  command  the 
Slave  processor.  These  include: 

Initial ize  port 
Connect  to  current  port 
Disconnect  current  port 
ZCOPY  file  to  remote 
ZCOPY  file  from  remote 
Get  machine  status 
Login  to  remote  machine 
Reset  remote  server 

a.  Initialize  Port 

This  command  allows  the  operator  to  select  the  current 
port  parameters  from  a  menu  of  options,  ranging  from  110  baud  to  38,400 
baud. 


b.  Connect  to  Current  Port 

This  command  allows  the  operator  to  assign  a  port 
(currently  CONI  or  COM2)  as  the  port  for  current  operations. 

c.  Disconnect  Current  Port 

This  command  disables  the  receive  interrupts  for  the 
currently  selected  port. 

d.  ZCOPY  file  to  remote 

This  command  requests  the  name  of  the  file  to  be  sent  to 
the  Slave,  and  then  invokes  a  program  called  ZCOPY  to  send  the  file  at 
the  ma;,'imum  data  rate  supported  by  the  communications  port. 

Precautions  must  be  taken  if  a  modem  is  used,  since  the  modem  will 

dictate  the  maximum  data  rate. 

e.  ZCOPY  file  from  remote 

This  command  requests  the  name  of  the  file  to  be  received 
from  the  Slave,  and  then  invokes  a  program  called  ZCOPY  to  receive  the 
file  at  the  maximum  data  rate  supported  by  the  communications  port. 

Precautions  must  be  taken  if  a  modem  is  used,  since  the  modem  will 

dictate  the  ma;:imum  data  rate. 
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f.  Get  machine  status 

This  command  allows  the  Master  operator  to  query  the 
con-figuration  of  the  connected  Slave  microcomputer,  and  displays  the 
number  of  floppy  disk  drives,  communications  ports,  and  available 
memory. 

g.  Login  to  remote  machine 

This  command  returns  a  prompt  from  the  remote  machine  on 
a  full  screen  window  at  the  Master.  The  operator  is  then  able  to  send 
commands  to  the  Slave  in  much  the  same  manner  as  from  the  local 
operating  system  prompt.  Responses  are  displayed  on  the  Master  screen. 

h.  Reset  remote  server 

This  command  is  used  to  resynchronize  the  Master  and 
Slave  computers.  It  does  so  by  sending  a  series  of  CAN  characters  down 
the  serial  communications  link  to  abort  any  operations  in  progress  and 
return  the  Slave  to  the  command  mode. 

11.  PgDn,  Alt-R  XMODEM  Get  a  file 

This  command  allows  the  Master  to  perform  a  file  transfer  from 
an  Xmodem  compatible  remote  system.  The  filename  is  requested  from  the 
operator  to  assign  to  the  received  file. 

12.  Alt-S  Activate  Server 

This  command  allows  the  operator  to  invoke  Slave  operations  on 
the  local  microcomputer,  and  is  useful  for  systems  initialization  and 
setup.  Depressing  a  key  while  in  this  mode  aborts  the  Slave  operation, 
but  returns  the  program  to  the  terminal  mode. 

13.  PgUp,  Alt-T  XMODEM  Put  a  file 

This  command  allows  the  operator  to  perform  a  file  transfer  to 
an  Xmodem  compatible  remote  system.  The  filename  of  the  file  to  be 
sent  IS  requested  from  the  operator. 

14.  Alt-X  (ESC)  Exit  emulator 

This  command  halts  the  program,  restores  all  communications 
port  interrupt  vectors,  and  returns  control  to  the  operating  system. 

E.  TERMINATION 

1.  Slave 

Slave  operation  is  terminated  by  depressing  a  key.  Control 
'■eturns  to  the  operating  system. 
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2. 


Master 


The  Master  is  terminated  by  returning  to  the  main  menu 
(terminal  screen)  and  depressing  Alt-X.  Control  returns  to  the 
operating  system. 


APPOIDIX  B 


INSTALLATION/PROGRAmiNG  AIDS 


This  appendix  provides  inTormation  on  the  construction  of  null 
modem  cables  for  use  between  the  Master  and  Slave  microcomputers,  and 
provides  a  listing  of  all  procedures  and  functions  found  in  the 
distributed  processing  program.  These  procedures  and  functions  are 
sorted  alphanumerically  within  by  program  or  unit. 


A.  SERIAL  PORT  CONNECTIONS 

The  serial  connection  between  computers  are  the  RS-232C 
communications  ports  operating  at  9600  baud  for  IBM  PC/AT  compatible 
machines  and  4800  baud  for  IBM  PC/AT  compatibles.  The  difference  is 
due  to  some  spurious  characters  noted  on  the  slower  machine's  display 
during  data  transfers.  The  microcomputers  at  each  end  of  a  single  link 
must  be  configured  for  the  same  speed.  The  pin  connection  for  the 
interconnecting  cables  is  shown  at  Figure  B.l.  For  microcomputers  with 
the  nine  pin  AT  style  connector,  a  nine  pin  to  RS-232C  25  pin  DB-25 
cable  is  recommended,  with  a  NULL  modem  in  between.  Hardware 
handshaking  is  turned  back  in  this  configuration.  The  program  will 
ope'^ate  sati sf actori  1  y  through  a  modem  if  the  baud  rate  is  lowered. 
(Flande-s,  1999,  p.  252) 


FIGURE  B.l 

SERIAL  PORT  CONNECTIONS 
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Data  Terminal  Ready 
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20 

Data  Terminal  Ready 

B.  INSTALLATION 

Installation  may  be  rapidly  accomplished  by  connecting  a  null  modem 
cable  to  COMl  for  both  the  Master  and  Slave  microcomputers.  Install  a 
copy  of  Zcopy.com  in  the  same  directory  as  the  Distrib.exe  program. 
The  file  Distrib.cfg  and  Distrib.phn  should  not  be  resident  in  this 
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directory,  or  the  program  may  initialize  the  COMl  ports  to  incompatible 
settings.  Execute  the  command  "Distrib  Master"  at  the  MS-DOS  prompt  o-f 
both  machines.  This  should  bring  both  programs  up  in  the  terminal 
mode.  Depress  the  Alt-M  (Activate  Master)  key  combination  to  access 
the  communications  port  settings  and  initialize  COMl  for  9600  baud,  8 
data  bits,  1  stop  bit  and  no  parity  (4800  baud  -for  non  -  AT  IBM  PC 
compatibles).  Connect  to  the  COMl  port  and  press  ESC  to  exit  the 
secondary  menu.  The  Master  and  Slave  should  be  able  to  communicate  as 
glass  teletypes  to  each  other.  H  desired,  change  the  default  settings 
for  both  microcomputers  to  the  desired  port  parameters  by  selecting 
Alt-C  (Update  Config  File).  This,  when  saved,  will  generate  the 
configuration  file  for  the  microcomputer.  A  similar  procedure  with 
Alt-D  will  allow  the  creation  of  the  telephone  number  file  if  desired. 
Create  an  AUTOEXEC.BAT  file  for  the  microcomputer (s)  designated  as 
Slave  and  include  the  command  "Distrib  Server"  to  enter  the  Slave 
program  on  power  up.  A  similar  file  with  "Distrib  Master"  will  allow 
the  Master  microcomputer  to  assume  that  role  on  power  up. 


C.  UNIT  DEPENDENCIES 

The  following  chart  (Table  B.l)  illustrates  the  the  dependencies  of 
the  various  units  in  the  program,  as  a  guide  to  the  visibility  of  the 
data  structures,  procedures  and  functions  in  the  interface  section  of 
each  program  module.  CRT  and  DOS  are  units  supplied  with  the  compiler. 
All  programs  and  units  depend  on  the  System  unit. 
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TABLE  B. 1 


UNIT  DEPENDENCIES 
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C.  PROCEDURE/FUNCTION  LIST 

Tm6  ‘ollowinc  Ki.rictions  and  procedures  are  found  within  the  Distrib 
program: 

1.  Program  Distrib 

s.  Chanae  DC  Parameters 
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b. 

Com(iis_'f  unction 

c. 

Dial ing_Di rectory 

d. 

Dial_Phone 

e. 

Dirs 

f . 

Dos_Shel 1 

g* 

Set.Dial 

h. 

Get_Equip 

i . 

Handle_Alt_Key 

j. 

Hangup 

k. 

Operator_input 

1. 

Operator _message 

m. 

Process_command 

n. 

Re5et_remote 

□  . 

Remote_Command 

P- 

Rlogin 

q- 

R>;_File 

r . 

TK_File 

s. 

Save_Fi le 

t. 

TTY 

UNIT 

Datacon 

a. 

Connected 

b. 

DataCDmm_Error 

n 

w  « 

Disable 

d. 

Di 5able_Interrupts 

e. 

Enable 

f . 

Enable_ Interrupts 

S- 

Establ 1 sh 

h. 

He>:Byte 

i . 

He>!Word 

j. 

F'urgeLi  ne 

f-.  • 

Reset_Chip 

1 . 

RS232~Avai 1 

IT.. 

RS232_Peel 

n . 

RS232_In 

□  . 

RS232_Init 

P- 

RS232_ISR1 

q- 

RS232_ISR2 

r . 

RS232_Dut 

s. 

RS_Break 

t. 

RS_Cleanup 

u. 

RS_Eight_Bits 

V. 

RS_Initialize 

w. 

RS_Restore 

A  • 

SelectBitRate 

y- 

SelectFraming 

2  . 

SelectParity 

• 

Sel ectWordLength 

ab. 

Send_E0I 

ac . 

Send_Str ing 
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3.  UNIT  Director 

a.  GetAttribut 

b.  ShowDir 

c.  StandBy 

d.  ViewDir 

e.  WriteEntry 

4.  UNIT  ErrorCod 

a.  Extended_Error_Code 

5.  UNIT  General 

a .  Beep 

b.  Cursor_Size 

c.  Exchange 

d.  Fill  Word 

e.  Get_Time 
■f .  Max 

g.  Min 

6.  UNIT  Miscpack 

a.  Bump St r Up 

7.  UNIT  Parser 

a.  argc 

b.  argv 

c.  Init_parse 

d.  Parse 

e.  Pa.'^seName 
•f.  F'arser_main 

g.  Resol ve_command 

8.  UNIT  Redirect 

a.  Close_File_Handle 

b.  Dupl  icate_Handle 

c.  Ini t_Redirect_Unit 

d.  Redirect_All_Qutput 

e.  Redirect_Handle 

•f.  Redirect_Std_Input 

g,  Recii  rect_Std_Error 

h.  Redirect_Std_Output 
1 .  ReEtore_Std_Error 

j.  Re5tore_Std_Input 

k.  Re5tore_Std_0utput 

l.  Re3tore_Al l_0utput 

m.  RestQre_CRT_Assignment5 

9.  UNIT  Spawn 

a.  Match_Command 

b.  Process_intrinsic_command 

c.  Run  Local 
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10.  UNIT  Support 

a.  Bui ld_Status_Line 

b.  Check_Auxport 

c.  Check_Keyboard 

d.  Find_Environment 

e.  GetEquip 
-f.  Initialize 

g.  Modi-fy_Entry 

h.  NoFile 

i.  OK 

j.  Save_File 

k.  Yes 

11.  UNIT  HndoM 

a.  Bui ld_Borders 

b.  Close_WindOM 

c.  Get_Dummy_Screen 

d.  Get_Real_Screen 

e.  Get_Window 

■f.  Init_Window_In'fo 

g.  MQve_Window 

h.  Write_Status 

l.  Open_Window 

j.  Proce55_Window_Menu 
^ .  Restore_Window 

l.  Save_Window 

m.  SetBackground 

n.  SetColor 

o.  Special_Processing 

12.  UNIT  Xnodai 

a.  buf _to_string 

b.  Command_X-f  er 

c.  Get_Bu-F-fer 

d.  Get_respon5e 

e.  ReadAu:-; 

•f.  Recei  ve_Record 

g.  Respond_by_f i le 

h.  Send.CAN; 

1 .  Send_E0T 

j.  Send_String 

k.  string_to_bu' 

l.  Sync_Receive 

m.  Send_Record 

n.  Sync_Send 

o.  Trans'fer_Fi  le 

p.  Update_Status 

q.  WriteAux 

r.  Xmodem  Xfer 
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APPENDIX  C 


XHOOEH  PROTOCOL 


The  ■following  is  an  overview  O'f  the  Xmodem  protocol,  as  described 
by  the  author.  (Trimble,  1989). 

A.  MODEM  PROTOCOL  OVERVIEW  178  lines,  7.5K 

1/1/82  by  Ward  Christensen.  I  will  maintain  a  master  copy  O'f  this. 
Please  pass  on  changes  or  suggestions  via  CBBS/Chicago  at  (312) 
545-8086,  or  by  voice  at  (312)  849-6279. 

NOTE;  this  does  not  include  things  which  I  am  not  familiar  with, 
such  as  the  CRC  option  implemented  by  John  Mahr. 

Last  Rev:  (none) 

At  the  request  of  Rick  Mallinak  on  behalf  of  the  guys  at  Standard 
Oil  with  IBM  P.C.s,  as  well  as  several  previous  requests,  I  finally 
decided  to  put  my  modem  protocol  into  writing.  It  had  been  previously 
formally  published  only  in  the  AMRAD  newsletter. 

Table  of  Contents 

1.  DEFINITIONS 

2.  TRANSMISSION  MEDIUM  LEVEL  PROTOCOL 

3.  MESSAGE  BLOCK  LEVEL  PROTOCOL 

4.  FILE  LEVEL  PROTOCOL 

5.  DATA  FLOW  EXAMPLE  INCLUDING  ERROR  RECOVERY 

6.  PROGRAMMING  TIPS. 

1.  Definitions 

<soh>  OlH 
<eot>  04H 
<ack>  05H 
:nak>  15H 
<can>  18H 

2.  Transmission  Medium  Level  Protocol 

Asynchronous,  8  data  bits,  no  parity,  one  stop  bit. 

The  protocol  imposes  no  restrictions  on  the  contents  of  the 
data  uciiiy  transmitted.  No  control  characters  are  looked  for  in  the 
128-byte  data  messages.  Absolutely  any  kind  of  data  may  be  sent 
binary,  ASCII,  etc.  The  protocol  has  not  formally  been  adopted  to  a 
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7-bit  environment  -for  the  transmission  o-f  ASCII-only  (or  unpacked-hex) 
data  ,  although  it  could  be  simply  by  having  both  ends  agree  to  AND  the 
protocol -dependent  data  with  7F  hex  be-fore  validating  it.  I 
speci-f ical ly  am  re-ferring  to  the  checksum,  and  the  block  numbers  and 
their  ones-complement. 

Those  wishing  to  maintain  compatibility  o-f  the  CP/M  File 
structure,  i.e.  to  allow  modemming  ASCII  Files  to  or  From  CP/M  systems 
should  Follow  this  data  Format; 

ASCII  tabs  used  (09H) ;  tabs  set  every  8. 

Lines  terminated  by  CR/LF  (ODH  OAH) 

End-oF-File  indicated  by  ''Z,  lAH.  (one  or  more) 

Data  is  variable  length,  i.e.  should  be  considered  a 
continuous  stream  oF  data  bytes,  broken  into  128-byte  chunks  purely 
For  the  purpose  oF  transmission. 

A  CP/M  "peculiarity":  IF  the  data  ends  exactly  on  a 
128-byte  boundary,  i.e.  CR  in  127,  and  LF  in  128,  a  subsequent  sector 
containing  the  '-■Z  EOF  character  (s)  is  optional,  but  is  preFerred.  Some 
utilities  or  programs  still  do  not  handle  EOF  without  ^Zs. 

The  last  block  sent  is  no  diFFerent  From  others,  i.e. 
there  is  no  "short  block". 

3.  Message  Block  Level  Protocol 

Each  block  oF  the  transFer  looks  like: 

OOHXblk  #><255-blk  #><—128  data  bytes— ><cksum> 


in  which: 

•rS0H>  =  01  hex 

<blk  #>  =  binary  number,  starts  at  01  increments  by 

1,  and  wraps  OFFH  to  OOH  (not  to  01) 

<255-blk  #>  =  blk  #  aFter  going  thru  8080  "CMA"  instr, 
i.e.  each  bit  complemented  in  the  8-bit  block  number. 

Formally,  this  is  the  "ones  complement". 

(cksum)  =  the  sum  oF  the  data  bytes  only.  Toss  any 

carry. 

4.  File  Level  Protocol 

a.  Common  to  Both  Sender  and  Receiver 

All  errors  are  retried  10  times.  For  versions  running 
with  an  operator  (i.e.  NOT  with  XMODEM),  a  message  is  typed  aFter  10 
errors  asking  the  operator  whether  to  "retry  or  quit".  Some  versions 
o-f  the  protocol  use  <can>,  ASCII  -‘X,  to  cancel  transmission.  This  was 
never  adopted  as  a  standard,  as  having  a  single  "abort"  character  makes 
the  transmission  susceptible  to  False  termination  due  to  an  <ack>  <nak> 
or  <soh>  being  corrupted  into  a  <can>  and  canceling  transmission. 
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The  protocol  may  be  considered  "receiver  driven",  that 
is,  the  sender  need  not  automatically  re-transmit,  although  it  does  in 
the  current  implementations. 

b.  Receive  Prograa  Considerations 

The  receiver  has  a  10-second  timeout.  It  sends  a  <nak> 
every  time  it  times  out.  The  receiver's  Tirst  timeout,  which  sends  a 
<nak>,  signals  the  transmitter  to  start.  Optionally,  the  receiver 
could  send  a  <nak>  immediately,  in  case  the  sender  was  ready.  This 
would  save  the  initial  10  second  timeout.  However,  the  receiver  MUST 
continue  to  timeout  every  10  seconds  in  case  the  sender  wasn't  ready. 


Once  into  a  receiving  a  block,  the  receiver  goes  into  a 
one-second  timeout  ■for  each  character  and  the  checksum.  If  the 
receiver  wishes  to  <nak>  a  block  for  any  reason  (invalid  header, 
timeout  receiving  data),  it  must  wait  for  the  line  to  clear.  See 
"programming  tips"  for  ideas  Synchronizing:  If  a  valid  block 
number  is  received,  it  will  be: 


fine;  or 


(1)  The  expected  one,  in  which  case  everything  is 


(2)  a  repeat  of  the  previously  received  block.  This 
should  be  considered  OK,  and  only  indicates  that  the  receivers  <ack'> 
got  glitched,  and  the  sender  re-transmitted; 


(3)  any  other  block  number  indicates  a  fatal  loss  of 
synchronization,  such  as  the  rare  case  of  the  sender  getting  a 
line-glitch  that  looked  like  an  -(ack)-.  Abort  the  transmission,  sending 
a  <can>. 


c.  Sending  Program  Considerations 

While  waiting  for  transmission  to  begin,  the  sender  has 
only  a  single  very  long  timeout,  say  one  minute.  In  the  current 
protocol ,  the  sender  has  a  10  second  timeout  before  retrying.  I 
suggest  NOT  doing  this,  and  letting  the  protocol  be  completely 
receiver-driven.  This  will  be  compatible  with  existing  programs. 

When  the  sender  has  no  more  data,  it  sends  an  <eot>,  and 
awaits  an  <ack>,  resending  the  -leotl^  if  it  doesn't  get  one.  Again,  the 
protocol  could  be  receiver-driven,  with  the  sender  only  having  the 
high-level  1-minute  timeout  to  abort. 

5.  Data  Flow  Example  Including  Error  Recovery 

Here  is  a  sample  of  the  data  flow,  sending  a  3-block  message, 
which  handles  the  two  most  common  line  hits  -  a  garbaged  block,  and  an 
<ack;  reply  getting  garbaged.  -ixx;--  represents  the  checksum  byte. 
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FIGURE  C.l 


DATA  FLOW  EXAMPLE 
SENDER  RECEIVER 


< - 

<sah>  01  FE  -data-  <xk> 

<soh>  02  FD  -data-  xx 

<soh>  02  FD  -data-  xx 

<soh>  03  FC  -data-  xx 
(ack  gets  garbaged) 
<soh>  03  FC  -data-  xx 

<  eot  >  - > 


times  out  after  10  seconds, 

<nak> 

<  ac  k  > 

- >  (data  gets  line  hit) 

<nak> 

<ack> 

<  -  <ack> 

- >  <ack> 

<ack> 


6.  Prograaming  Tips 

The  character-recei ve  subroutine  should  be  called  with  a 
parameter  specifying  the  number  of  seconds  to  wait.  The 
receiver  should  first  call  it  with  a  time  of  10,  then  <nak>  and 
try  again,  10  times. 

After  receiving  the  <soh>,  the  receiver  should  call  the 
character  receive  subroutine  with  a  1-second  timeout,  for  the 
remainder  of  the  message  and  the  <ck5um>.  Since  they  are  sent 
as  a  continuous  stream,  timing  out  of  this  implies  a  serious 
li)e  glitch  that  caused,  say,  127  characters  to  be  seen  instead 
of  128. 

When  the  receiver  wishes  to  <nak>,  it  should  call  a  "PURGE" 
subroutine,  to  wait  for  the  line  to  clear.  Recall  the  sender 
tosses  any  characters  in  its  UART  buffer  immediately  upon 
completing  sending  a  block,  to  ensure  no  glitches  were  mis- 
1 nterpreted. 

The  most  common  technique  is  for  "PURGE"  to  call  the 
character  receive  subroutine,  specifying  a  1-second  timeout, 
and  looping  back  to  PURGE  until  a  timeout  occurs.  The  <nak:>  is 
then  sent,  ensuring  the  other  end  will  see  it. 

You  may  wish  to  add  code  recommended  by  Jonh  Mahr  to  your 
character  receive  routine  -  to  set  an  error  flag  if  the  UART 
shows  framing  error,  or  overrun.  This  will  help  catch  a  few 
more  glitches  -  the  most  common  of  which  is  a  hit  in  the  high 
bits  of  the  byte  in  two  consecutive  bytes.  The  <cksum>  comes 


out  OK  since  counting  in  1-byte  produces  the  same  result  o-f 
adding  80H  +  BOH  as  with  adding  OOH  +  OOH. 
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APPENDIX  D 


HAINTENANCE  HANUAL  FOR  DISTRIB  PR06RAH 


A.  F1«)a%An  DISTRIB 

1.  Con-figuration  In-foraation 

a.  Language  -  Turbo  Pascal  Version  4.0 

b.  Coapiler  Version  -  4.0 

c.  Target  HardHare  -  IBM  PC/AT  or  close  coapatible 

d.  Operating  Systea  -  Hicrosoft  HS-DOS  (Version  3.x) 

e.  Prograa  Description 

Distrib  is  the  main  program  -for  both  the  Master  and 
Slave  computers  operating  in  the  distributed  processing  network.  The 
main  program  loop  initializes  the  window  unit,  saves  the  current 
director/  and  the  current  screen  image  tor  restoration  on  program 
termination,  and  then  calls  Initialize  in  the  Support  Unit  to  establish 
the  communications  port  parameters,  screen  colors,  dialing  directory, 
and  other  deteult  parameters.  The  program  then  examines  the  command 
tail  tol lowing  the  program  name  when  it  was  called  trom  the  operation 
system  and  takes  one  o-f  the  -following  actions; 

<1)  Command  tail  is  NIL  or  "Server".  H  nothing  is 
speci-fied  a-fter  the  program  name,  or  the  word  "Server"  is  -found  as  the 
-first  command  line  parameter,  the  program  assumes  it  is  to  operate  as  a 
remote  Slave  or  Server  and  enters  a  processing  loop  to  wait  for  a 
command  packet  from  its  communi cations  port.  A  local  screen  display  is 
available  showing  a  program  version  banner  and  a  monitor  window  showing 
commands  received  and  responses  generated.  Local  keyboard  input  after 
this  point  will  abort  the  programi,  reverting  the  computer  to  local  use. 

(21  Command  tail  is  "Master".  If  the  word  "Master"  is 
found  as  the  first  command  line  parameter,  the  program  enters  the 
terminal  mode  through  the  default  communications  port  and  awaits 
operator  action  at  the  local  keyboard.  If  a  remote  Slave  computer  is 
connected,  NAK  symbols  will  be  displayed  periodically  as  the  remote 
computer  awaits  a  command.  A  status  line  is  displayed  across  the  25 
line  of  the  screen  and  HELP  is  offered  to  the  local  operator  if  the 
HOME  key  is  depressed.  HELP  displays  a  list  of  available  commands  to 
initiate  file  transfers  or  run  remote  programs. 

2.  Subroutines  Contained 

a.  Dial_Phone 

(1)  Type:  Procedure 
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(2)  Purpose;  To  dial  a  selected  telephone  number  on  a 
Hayes  compatible  modem  connected  to  the  modem  port. 

(3)  Description  oi  Parameters:  I  is  the  entry  number 
to  be  dialed  that  was  selected  by  the  user  from  the  Dial ing_Di rectory 
procedure  that  -follows.  Demon_Dial,  i-f  TRUE,  repeat  dials  the  entry 
until  the  modem  reports  a  connection.  This  procedure  changes  the  COMM 
port  selection  stored  in  the  DataCom  Unit  variable  Current_Com  to  the 
modem  port,  and  leaves  it  there. 

(4)  Subroutines  Called: 

Flush_Bu-fter  (dumps  the  receive  buffer) 

DataCom. Connected 
DataCom.RS_Ini tial ire 
DataCom. RS_Cleanup 
DataCom . RS232_ I n 
DataCom. RS232_Avai 1 
DataCom. Send_Stri ng 
CRT.ClrEOL 
CRT.ClrScr 
CRT. Delay 
CRT.GoToXY 
Wndow. Beep 
Wndow . Get_Wi ndow 
Wndow. Open_Window 
Wndow . Cl ose_Wi ndow 

(5)  Process  Description 

Given  the  dialing  directory  entry  to  dial,  the 
procedure  initialises  the  modem  port  according  to  information  stored  in 
the  dialing  entry  data  structure  Support. Phone_Stuffj  and  sends  a 
string  to  the  modem  to  dial  the  number.  If  repeat  dialing  is  selected, 
a  window  is  displayed  showing  the  progress  of  the  call. 

b.  Get_Dial 

(1)  Type;  Procedure 

(2)  Purpose:  This  procedure  allows  the  operator  to 
select  a  telephone  number  to  be  dialed. 

(3)  Description  of  Parameters: 

Input:  Support. Phone_Menu  (the  list  of  available 

numbers) 

Output:  The  function  returns  the  order  of  the 

n'th  phone  list  entry 

(4)  Subroutines  Called; 

Wndow. Op en_Wi ndow 
Wndow. Proce55_Wi ndow 

(5^  Process  Description 

The  procedure  calls  □pen_Window  with  parameter 
Phone_MenLi  from  the  Support  Unit  to  display  a  menu  of  telephone  numbers 
cental ned  in  the  file  DISTRIB.PHN,  and  allows  the  operator  to  select 
one  with  a  menu  bar. 

c.  Dial ing_Di rectory 

'D  Type:  Procedure 
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(2)  Purpose:  To  allow  the  user  to  dial,  modify,  add 

or  delete  any  telephone  number  entry  in  the  data  structure 
Support .  Phone_Stu-f  f . 

(3)  Description  of  Parameters:  none. 

(4)  Subroutines  Called: 

Bet_Dial  (displays  the  list  of  telephone  numbers 

that  are  available) 

CRT.GoToXY 

CRT.ClrEOL 

CRT.ClrScr 

Support. Modi fy_Entry 
Support. OK 
System. FreeMem 
System. GetMem 
System. Move 
System. SizeOf 
Wndow. Get_Window 
Wndow. Open_Window 
Wndow. Close_Window 

(5'  Process  Description 

This  procedure  first  displays  a  window  allowing 
the  operator  to  dial,  modify,  add  or  delete  any  number  in  the  data 
structure  Support . Phone_Stuff .  If  dial  is  selected,  the  number  is 
dialed  and  the  program  returns  to  terminal  mode.  If  modify  or  delete 
IS  selected,  a  list  of  available  names  attached  to  known  telephone 
numte'^s  1=  displayed  fcr  selection.  If  a  number  is  to  be  added,  a 
blanl  parameter  table  is  displayed  for  data  entry.  On  completion,  the 
operate-  IS  D-ffered  the  opportunity  to  save  the  added  number  to  the 
file  DISTPIB.  through  a.  cell  to  Modi  f  y_Entry .  ESC  returns  to  the 

ternnal  r.-da. 

d.  Dirs 

Type!  Procedure 

(2'  Purpose;  To  allow  the  user  to  display  the  local 

d: £►  di rector , , 

>3'  Description  of  Parameters:  none. 

(4'  Subroutines  Called; 

CPT.GoToXV 

CP-^-.ClrEu.. 

Cr  T. Cl rScr 
DCS .  F 1  nd_F'i  rst 
PCS. Find_Ne"t 
System. ChDi r 
S /stem. GetDi r 
System. Readhey 
Wndow. Open_Wi ndow 
Wndow. Cl ose_Window 

(S  Process  Description 

This  procedure  prompts  the  user  -for  a  path 
spec : *  1  cat  1  on  and  directo-y  mas)  similar  to  that  used  by  the  MS-DOS  DIR 


command  and  then  displays  the  directory  -for  that  specification  a  screen 
at  a  time.  Capabilities  similar  to  DIR  *.*  and  DIR  *.*/»  are  provided. 

e.  Change_DC_Parameters 

(1)  Type:  Procedure 

(2)  Purpose:  To  allow  the  user  to  select  speed, 
parity,  word  length  and  stop  bit  parameters  for  the  COM  port  specified 
by  DataCom. Current_Com. 

(3)  Description  of  Parameters:  DataCom. Current_Com 

(4)  Subroutines  Called: 

CRT.ClrScr 

DataCom. RS_Initiali2e 
Dat  aCom . RS_C1 eanup 
Mndow . □pen_Wi ndow 
Wndow. Cl ose_WindDw 
Wndow. Process_Window 

(5)  Process  Description 

This  procedure  offers  a  selection  of  parameter 
combinations  for  the  currently  selected  COM  port  and  allows  the  port  to 
be  configured  accordingly.  A  menu  bar  selection  is  used. 

f .  Hangup 

(!)  Type;  Procedure 

(2)  Purpose:  To  hang  up  the  modem, 

(3)  Description  of  Parameters;  DataCom. Current_Com 

(4)  Subroutines  Called; 

CRT. Del  ay 
DataCom. RS232_ I n 
DataCom. RS232_Avai 1 
DataCom. RS_Initial ize 
Dat  aCom . RS_C1 eanup 
DataCom. Send_String 

(S'  Process  Description 

This  procedure  places  the  modem  in  command  mode 
and  sends  a  disconnect  command  string  to  the  Hayes  compatible  modem 
connected  to  the  current  communications  port. 

g.  Operator_ Input 

(1)  Type;  Function 

(2)  Purpose:  To  obtain  a  string  input  from  the 

operator . 

(3)  Description  of  Parameters:  Title  is  a  string 

typed  in  the  Wndow  Unit  that  is  to  be  displayed  on  the  window;  Prompt 
IS  a  string  written  in  the  window  area  specifying  what  the  operator  is 
to  enter. 

(4)  Subroutines  Called; 

CRT. Cl rScr 

Wndow. Open_Wi ndow 
Wndow. Close  Window 
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(5)  Process  Description 

This  -function  opens  a  titled  window  and  waits  tor 
the  operator  to  type  a  string.  The  string  is  returned  as  the  -function 
result. 

h.  Operator_Message 

(1)  Type:  Function 

(2)  Purpose:  To  in-form  the  operator  with  a  string 
message,  usually  o-f  some  error  condition  that  is  to  be  temporarily 
displayed. 

(3)  Description  o-f  Parameters:  Title  is  a  string 

typed  in  the  Wndow  Unit  that  is  to  be  displayed  on  the  window;  Message 
is  the  string  message  to  be  provided  to  the  operator.  Note  that  this 
function  depends  on  the  calling  program  to  close  the  window. 

(4)  Subroutines  Called: 

CRT.ClrScr 

Wndow. Open_Wi ndow 

(5)  Process  Description 

This  function  opens  a  titled  window  and  places  the 
message  string  in  the  window. 

i .  Process_CoMnand 

(1)  Type:  Function 

(2)  Purpose:  To  operate  the  computer  as  a  Slave, 
process  all  requests  to  initialire  COM  ports,  transfer  files  between 
Master  and  Slave  computers,  remotely  operate  a  Slave  computer,  or  reset 
the  connection  between  computers. 

(3)  Description  of  Parameters;  The  function  returns 

to  the  calling  program  an  enumerated  state  variable  defined  in  the  Unit 
Xmodm  depending  or  the  successful  dispatch  of  a  command  to  a  Slave 
computer  and  the  receipt  of  the  response,  or  an  indication  that  the 
local  operator  has  aborted  the  operation  by  pressing  a  key.  The 

keypressed  indication  is  typically  all  that  is  of  interest,  since  the 
function  normally  called  repeatedly. 

>4)  Subroutines  Called: 

CnT. SI r5cr 
CRT.GoToXv 
SystefTi.  Readk  ey 
W^idow.  Open_Window 
Wndow. Cl ose_Wi ndow 
Wndow. Get _Wi ndow 
Wndow.  Ft  ocess_Wi ndow 
Xmodm.  Buf  _to_Str  mg 
Xmodm. Command_Xfer 
Xmodm. Send_CAN 
Xmodm. Str i ng_to_buf 
Xmodm. Respond_by_f i 1 e 
u'  process  Description 

The  initial  state  of  the  communications  link  is 
•‘rom  Master  to  Slave  ^this  process).  This  function  opens  a  small 
status  window  indicating  whether  it  is  awaiting  a  remote  command, 


parsing  a  received  command  for  local  execution,  or  completing  the 
command  execution.  It  does  so  in  this  sequence:  First,  a  loop  is 
entered  that  repeatedly  calls  the  function  Xmodm.Command_Xfer.  On 
successful  receipt  (status  =  Rx_done) ,  the  command  is  converted  from  an 
Xmodem  packet  into  a  string  and  passed  to  Parser. Par ser_main  for 
execution.  The  communications  link  also  switches  direction,  with  the 
Master  expected  the  Slave  to  initiate  Xmodem  packet  transmissions. 
This  procedure  returns  any  error  indication  from  the  locally  executed 
procedure  or  spawned  program  as  a  string  in  the  variable  Error_Msg, 
along  with  a  typed  variable  Errtype  indicating  whether  the  response  is 
a  file  (for  program  results  or  output)  or  a  simple  string  variable  or 
nothing  at  all  (NULL  string).  Errtype  is  used  in  a  following  CASE 
construct  to  send  the  file  specified  by  a  complete  drive  and  path 
specification  in  Error_Msg  back  to  the  Master  computer,  or  to  forward 
Error_Msg  as  a  packetized  string  utilizing  the  Transmit  option  of 
Xmodm.Command_Xfer.  Similarly,  this  procedure  returns  any  output  from 
the  locally  executed  procedure  or  spawned  program  as  a  string  in  the 
variable  Response,  along  with  a  typed  variable  Restype  indicating 
whether  the  response  is  a  file  (for  program  results  or  output)  or  a 
simple  string  variable  or  nothing  at  all  (NULL  string).  Restype  is 
used  in  a  following  CASE  construct  to  send  the  file  specified  by  a 
complete  drive  and  path  specification  in  Response  back  to  the  Master 
computer,  or  to  forward  Response  as  a  packetized  string  utilizing  the 
Transmit  option  of  Xmodm.  Commiand_Xf  er .  The  Master  computer  expects  a 
response  of  this  type  over  the  communications  line  when  it  detects  the 
successful  command  transfer.  Note  that  the  normal  exit  condition  for 
the  Command_Xfer  loops  throughout  this  function  is  R;:_Done  or  Tx_Done. 
The  Master  compute'^  will  continue  to  display  responses  from  the  Slave 
until  a  CAN  character  is  received.  At  this  point,  the  function  returns 
with  the  last  valid  status  of  the  Command_Xfer  function,  and  the 
communications  link  again  switches  to  the  beginning  state,  with  the 
Slave  waiting  on  transmissions  from  the  Master.  Error  indications 
other  than  that  in  Error_M5g  short  circuit  the  program  execution 
through  this  function,  send  a  CAN  character  to  the  Master,  return  the 
communications  link  to  its  initial  state,  and  leave  the  function  with 
an  error  status. 


j.  Reset _Remote 

( ! '■  fype:  Procedure 

'2)  Purpose:  This  subprocedure  of  the  Comms_Function 
allows  the  operator  to  recover  control  of  the  Slave  computer  if 
synchronization  is  lost  over  the  communications  link. 

(3)  Description  of  Parameters:  None. 

(4)  Subroutines  Called: 

Update. Status  (local  to  Comms_Functi on ) 


Xmcdm. 5end_CAN 
/Z’’  process  Description 

This  procedure  sends  four  CAN  characters  out  on 
the  communications  link  to  the  Slave.  The  Proce5s_Command  function 
^described  above''  is  sensitive  to  the  receipt  of  CAN  characters  and 
will  e-  1 1  the  f’..n-tion  early  with  an  error  status.  The  calling  program 
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simply  loops  into  the  Process_Command  ■function  again  and  awaits  a 
command. 

k .  Reinote_CoiMnand 

(1)  Type:  Function 

(2)  Purpose:  This  sub'function  o-f  Comms_Function 

•function  accomplishes  one  cycle  of  a  Master  to  Slave  command  and 
response  over  the  communications  port. 

(3)  Description  of  Parameters:  The  function  is 

entered  with  a  string  containing  the  command  to  be  executed.  The 
function  returns  to  the  calling  program  an  enumerated  state  variable 
defined  in  the  Unit  Xmodm  depending  on  the  successful  dispatch  and 
execution  of  a  command  by  the  Slave  computer,  or  an  indication  that  a 
local  operator  has  aborted  the  sequence  by  depressing  a  key.  The 
keypressed  indication  is  typically  all  that  is  of  interest,  since  the 
function  normally  called  repeatedly. 

(4)  Subroutines  Called: 

System. ReadKey 
Xmodm. Command_Xfer 
Xmodm. String_to_buf 

'5)  Process  Description 

This  function  is  currently  called  by  Bet_Equip  to 
perform  s  single  command  cycle;  or  Rlogin  to  repeatedly  cycle  and  allow 
the  operator  to  remotely  operate  the  Slave  computer  from  the  Master 
keyboard  in  a  manner  similar  to  the  DOS  prompt.  It  does  so  in  this 
sequence:  First,  a  loop  is  entered  that  repeatedly  calls  the  function 
Xmodm. Command_Xfer  to  pass  the  command  string  to  the  Slave.  On 
successful  transmission  (status  =  T,\'_done)  ,  function 

Xmodem. Get_Response  displays  the  packetized  response  from  the  Slave  on 
the  Master  monitor  window.  The  Master  continues  to  display  responses 
from  the  Slave  until  the  Slave  sends  a  CAN  character,  indicating 
completion  of  the  all  responses,  or  the  Master  operator  depresses  a  key 
to  break  the  cycle.  At  this  point,  the  function  returns  with  a  boolean 
indication  of  the  success  of  the  transfer 
(TRUE  =  success,  FALSE  for  any  keypress  during  the  cycle). 

l.  Rlogin 

(1)  Type:  Procedure 

(2)  Purpose:  This  subprocedure  of  the  Comms_Function 

function  cycles  the  Remote_Command  function  and  allows  operator  input 
of  commands  to  the  Slave  until  aborted  by  the  operator. 

(3)  Description  of  Parameters:  None. 

(4)  Subroutines  Called; 

Update. Status  (local  to  Rlogin) 

CRT.ClrScr 

Di str ib . Remote_Command 
Di str i b . Reset_Remote 
Di st r lb. Operator _ Input 
Wndow. Open_Window 
Wndow . Cl ose_Wi ndow 
Wndow. Get  Window 
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(5)  Process  Description 

At  the  beginning,  this  procedure  opens  a  full 
screen  window  to  display  all  responses  -from  the  Slave  in  much  the  same 
way  a  local  operator  would  view  them.  The  procedure  then  calls 
Remote_Command  initially  with  a  command  string  requesting  a  prompt  from 
the  remote  system  so  that  the  operator  can  determine  the  current 
directory  of  the  Slave.  If  that  succeeds,  the  Master  operator  is 
prompted  for  a  command  to  send  to  the  Slave  by  Operator_ Input.  Remote 
processing  may  be  terminated  by  entering  an  exclamation  point  ("!") 
whereupon  the  operator  is  asked  to  confirm  the  termination.  Remote 
processing  also  terminates  if  Rlogin  returns  a  FALSE  result.  On  exit, 
the  procedure  closes  the  monitor  window  and  exits. 

m.  Rx_File 

(1)  Type:  Procedure 

(2)  Purpose:  This  subprocedure  of  the  Comms_Function 
function  initiates  a  file  transfer  from  the  Slave  to  the  Master  by 
using  an  adaptive  file  transfer  program,  Zcopy. 

(3)  Description  of  Parameters:  None. 

(4)  Subroutines  Called: 

Update. Status  (local  to  Rlogin) 

CRT.ClrScr 

Distrib.Remote_Command 
Distrib.OperatDr_Input 
System. Exec 
Wndow. □pen_Window 
Wndow . Cl ose_Wi ndow 
Wndow. 6et_Window 
Xmodm.String_to_buf 

(5)  Process  Description 

This  procedure  opens  a  full  screen  window  to 
display  the  operation  of  the  Zcopy  file  transfer  program,  and  prompts 
the  operator  for  the  name  of  the  file  to  receive.  This  file  is  assumed 
to  be  in  the  current  directory  of  the  Slave  unless  a  full  path  is 
specified.  Once  the  file  name  is  obtained,  a  command  string  is 
assembled  to  send  to  the  Slave  to  initiate  the  transfer.  The  procedure 
is  terminated  if  the  command  transfer  is  interfered  with  by  a  keypress 
at  the  Master.  Once  the  Slave  acknowledges  receipt  of  the  command,  the 
Master  initiates  the  Zcopy  program  locally,  using  a  different  format  to 
operate  as  a  server  under  the  temporary  control  of  the  Slave.  The 
operator  is  provided  prompting  information  from  the  Zcopy  program  in  a 
full  screen  window  if  a  file  must  be  overwritten  or  Zcopy 
synchroni zati on  is  not  achieved.  Once  completed  or  terminated,  the 
procedure  displays  the  Zcopy  display  output  from  the  Slave  computer  for 
error  diagnostics  (if  needed),  closes  all  opened  windows  and  exits. 

n.  Tx_File 

n)  Type:  Procedure 

•!2)  Purpose:  This  subprocedure  of  the  Comms_Functi on 

function  initiates  a  file  transfer  from  the  Master  to  the  Slave  by 
using  an  adaptive  file  transfer  program,  Zcopy. 
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(3)  Description  o-f  Parameters;  None. 

(4)  Subroutines  Called: 

Update. Status  (local  to  Rlogin) 

CRT.ClrScr 

Di str i b . Remote_Command 
Di str i b . Operator _ Input 
System. Exec 
Wndow . Open_Wi ndow 
WndoM. Cl ose_Wi ndow 
Wndow. Get_Window 
Xmodm.  String_to_bu'f 

(5)  Process  Description 

This  procedure  opens  a  -full  screen  window  to 
display  the  operation  o-f  the  Zcopy  file  transfer  program,  and  prompts 
the  operator  for  the  name  of  the  file  to  transmit.  This  file  is 
assumed  to  be  in  the  current  directory  of  the  Master  unless  a  full  path 
is  specified.  Once  the  file  name  is  obtained,  a  command  string  is 
assembled  to  send  to  the  Slave  to  initiate  the  transfer.  The  procedure 
is  terminated  if  the  command  transfer  is  interfered  with  by  a  keypress 
at  the  Master.  Once  the  Slave  acknowledges  receipt  of  the  command,  the 
Master  initiates  the  Zcopy  program  locally,  operating  as  a  file 
transfer  master  with  the  Slave  operating  as  a  Slave.  The  operator  is 
provided  prompting  information  from  the  Zcopy  program  in  a  full  screen 
window  if  a  file  must  be  overwritten  or  Zcopy  synchronization  is  not 
achieved.  Once  completed  or  terminated,  the  procedure  displays  the 
Zcopy  display  output  from  the  Slave  computer  for  error  diagnostics  (it 
needed),  closes  all  opened  windows  and  exits. 

o.  6et_Equip 

(1)  Type:  Procedure 

(2)  Purpose:  This  subprocedure  of  the  Comms_Functi on 

function  displays  the  communications  port  and  floppy  disk  configuration 
of  the  Slave  computer. 

(3)  Description  of  Parameters:  None. 

(4)  Subroutines  Called: 

Update. Status  (local  to  Rlogin) 

CRT. Cl rScr 

Di st  r i b . Remote_Command 
Di st r i b.Oper at or_ Input 

Wndow. Qpen_Window 

Wndow. Cl ose_Wi ndow 

(5)  Process  Description 

Utilizing  the  Remote_Command  function,  this 
procedure  dispatches  the  command  string  "Equip"  to  the  Slave,  which  is 
processed  in  the  Slave  program  to  obtain  BIOS  information  via  BIOS  call 
fll.  On  exit,  the  procedure  closes  the  remote  monitor  window  and 
exits. 

p.  CoaMS_Function 

(1)  Type;  Function 


(2)  Purpose!  To  process  operator  requests  to 
initialize  COM  ports,  transfer  files  between  Master  and  Slave 
computers,  remotely  operate  a  Slave  computer,  or  reset  the  connection 
between  computers. 

(3)  Description  of  Parameters:  The  function  returns 
to  the  calling  program  an  enumerated  state  variable  defined  in  the  Unit 
Xmodm  depending  on  the  successful  dispatch  of  a  command  to  a  Slave 
computer  and  the  receipt  of  the  response,  or  an  indication  that  the 
local  operator  has  aborted  the  operation  by  pressing  a  key.  The 
keypressed  indication  normally  allows  the  operator  to  make  another 
selection  or  to  leave  this  function. 


(4)  Subroutines  Called: 
Update. Status  (for 


local  display  of  the  system 


state) 


CRT.ClrScr 

CRT.GoToXY 

Di str i b . Remote_Command 
Di strib.Rlogin 
Distrib.Rx_File 
Distrib.TK_File 
Di st r i b . 6et_Equi p 
System. ReadKey 
Wndow. Open_Window 
Wndow. Close_Window 
Wndow. Get_Window 
Wndow. Process_Window 
Xmodm. Buf_to_String 
Xmodm. Command_Xf er 
Xmodm. Send_CAN 
Xmodm. String_to_buf 
Xmodm. Respond_by_f i 1 e 
(5)  Process  Description 

This  function  opens  a  window  showing  the 

parameters  for  the  current  communications  port,  and  a  second  window  to 
allow  the  operator  to  select  one  of  the  following  functions: 

Initialize  a  port,  change  to  a  different  port  and  enable  the  receive 
interrupts,  disable  a  receive  interrupts  for  a  port,  send  a  file  to  the 
Slave  computer,  receive  a  file  from  the  Slave,  obtain  the  port  and  disk 
configuration  of  the  Slave,  operate  the  Slave  remotely,  reset  the 
current  Xmodem  link,  and  leave  the  function.  It  does  so  by  calling  one 
of  the  following  procedures  or  functions  local  to  Comms_Functi on  by  a 
CASE  selection:  Distrib.Remote_Command ,  Di stri b . R1 ogi n , 

Di5trib.R>;_File,  Di  str  i  b.  T>;_Fi  le,  Distrib.Get_Equip. 


q.  DOS_Shel 1 

(1)  Type:  Procedure 

(2)  Purpose:  This  procedure  spawns  a  copy  of  the 

MS-DOS  command  processor  to  allow  the  operator  of  the  Master  computer 
to  perform  DOS  functions  while  retaining  the  control  program.  Control 
is  returned  to  the  Master  program  on  exiting  the  secondary  processor. 

(3)  Description  of  Parameters:  None. 


(4)  Subroutines  Called: 

CRT.ClrEOL 

CRT.ClrScr 

CRT. Delay 

Distrib.Find_Environ(iient 

Support. OK 

System. ChDir 

System. GetDir 

System. Exec 

WndOM. Open_Window 

WndoM. Close_Window 

(5)  Process  Description 

The  procedure  -first  locates  a  copy  of  the  DOS 
command  processor  by  finding  the  "COMSPEC="  path  specification  in  the 
current  environment.  This  is  established  on  startup  of  the  computer 
and  is  normally  passed  down  to  the  application  program  for  its  use. 
Once  this  complete  file  specification  is  obtained,  the  operator  is 
informed  that  the  DOS  shell  will  be  activated  and  a  full  screen  window 
is  opened  to  save  the  current  screen.  When  the  operator  terminates  the 
secondary  command  processor  by  entering  "EXIT"  at  the  prompt,  the 
procedure  restores  the  original  disk  drive  and  directory,  notes  any  DOS 
errors  returned,  and  returns  to  the  terminal  screen.  If  the  COMSPEC 
environment  parameter  cannot  be  found,  the  procedure  informs  the 
operator,  obtains  acknowledgment,  and  exits. 

r .  Hand 1 e_ALT_Key 

(1)  Type;  Procedure 

(2.'  Purpose;  This  procedure  dispatches  the  program  to 
a  particular  function  selected  by  the  operator  as  an  ALT-key.  A  help 
display  is  also  provided  as  offered  on  the  status  line. 

(3)  Description  of  Parameters:  B  is  the  high  order 
byte  read  from  the  keyboard  and  is  used  as  a  CASE  selector 

(4)  Subroutines  Called: 

CRT.ClrEOL 

CRT.ClrScr 

CF'T.  Del  ay 

DataCom. RS_Break 

Di str i b . Change_DC_Parameter s 

Di str i b . Comms_Funct i on 

Dist rib. Dial ing_Di rectory 

Distrib.Dirs 

Di str i b . DOS_Shel 1 

Di str ib. Hangup 

Di str ib. Hand le_ALT_Key  (the  procedure  calls  itself 
afte-'  processing  the  help  menu) 

Support . Bui  1 d_Status_Li ne 
Support . Modi f  y_Entry 
Support . OK 
System.  ChDi 
Wndow, Beep 
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Wndow . Cl ose.Wi ndow 
Wndow. Open.Window 
Wndow. Process_Wi ndow_Menu 
Xmodm.Trans-fer  File 


port 

modem 

communications 

parameters 


(5)  Process  Description 

The  -functions  offered  by  this  procedure  are: 

Alt-A;  Change  Drive  and  Path 

Alt-B:  Send  a  Break  signal  out  of  the  current  COM 
Alt-C:  Clear  the  screen 

Alt-D:  Dial  a  telephone  number  and  connect  by 
Alt-E:  Toggle  the  local  Echo  for  half  duplex 
Alt-F;  Change  the  default  communications 


Alt-G:  Show  the  current  directory 

Alt-H:  Hang  up  the  modem 

Alt-L:  Open  the  DOS  Shell 

Alt-M;  Activate  the  Master 

Alt-P:  Activate  the  Master 

Alt-R,  PgDn:  Receive  a  file  via  Xmodem 

Alt_S:  Activate  the  Server 

Alt-T,  PgUp:  Transmit  a  file  via  Xmodem 

Alt-X;  Terminate  the  program 

Home;  Display  a  help  screen  of  these  commands  and 
allow  selection  by  menu  bar 


s.  TTY 

(1)  Type:  Procedure 

(2)  Purpose:  This  procedure  provides  a  teletype 

emulation  augmented  by  ANSI  control  functions, 

(3)  Description  of  Parameters;  ANSI  =  TRUE  indicates 
the  procedure  acts  as  an  ANSI  terminal  emulator. 

(4)  Subroutines  Called: 

WriteLF  (process  a  line  feed) 

DOS  Interrupt  $10  (Video  Display) 

CRT.ClrScr 

CRT. Del  ay 
Wndow . Open_Wi ndow 
Wndow. Cl ose_Wi ndow 
Support. OK 
System. ChDir 
System. GetDir 
System. Exec 

(5)  Process  Description 

The  procedure  filters  characters  generated  by  the 
keyboard  and  arriving  from  the  communications  port  in  the  terminal  mode 
to  emulate  an  ANSI  terminal.  ALT-key  combinations  are  intercepted  from 
the  keyboard  and  processed  by  Handl e_ALT_Key . 
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APPENDIX  E 


MAINTENANCE  MANUAL  FOR  UNIT  DATACOM 


A.  UNIT  DATACOM 

1.  Conf iguraticx)  In-foraation 

a.  Language  -  Turbo  Pascal  Version  4.0 

b.  Coapiler  Version  -  4.0 

c.  Target  Hardware  -  IBM  PC/AT  or  close  coapatible 

d.  Operating  System  -  Microsoft  MS-DOS  (Version  3.x) 

e.  Program  Description 

Provides  all  procedures  and  -functions  needed  to 
initialize  the  computer  serial  communications  ports,  enable  and  disable 
receive  interrupts,  provide  buffered  reception  of  characters,  clear  the 
receive  buffer(s),  send  or  receive  bytes  through  the  ports,  send  a 
BREAK  signal  over  the  RS-232  port,  and  nondestructi vel y  read  the 
receive  buffer (s).  Supports  Unit  Xmodem  and  the  terminal  portion  of 
Distrib.  The  currently  selected  communications  port  is  contained  in 
public  variable  Current_Com. 

2.  Subroutines  Contained 

a.  Disable_Interrupts 

(1)  Type;  Procedure 

(2)  Purpose;  To  permit  a  Pascal  procedure  to  disable 
system  interrupts. 

(3)  Description  of  Parameters; 

Input;  None. 

Output:  System  interrupts  are  disabled. 

(4)  Subroutines  Called; 

Inline  assembly. 

(5)  Process  Description 

The  assembly  instruction  to  mask  off  interrupts  at 
the  CPU  IS  inserted  into  the  code  stream  at  compile  time. 

b.  Enable_Interrupts 

(1)  Type:  Procedure 

(2)  Purpose;  To  permit  a  Pascal  procedure  to  enable 
system  interrupts. 

(3)  Description  of  Parameters: 

Input:  None. 

Output;  System  interrupts  are  enabled. 

(4)  Subroutines  Called: 

Inline  assembly. 
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(5)  Process  Description 

The  assembly  instruction  to  unmask  interrupts  at 
the  CPU  is  inserted  into  the  code  stream  at  compile  time. 


c. 

RS232_ISR1 

<1) 

Type:  Procedure 

(2) 

Purpose:  The  interrupt  service 

routine  for 

communications 

port 

one. 

(3) 

Description  of  Parameters: 

Input:  An  interrupt  vector  call  initiated 

from 

communications 

port 

one. 

Output:  The  received  character  is 

placed 

in  a 

buffer. 

(4) 

Subroutines  Called: 

DataCom. Disableinterrupts 

DataCom. Enabl einterrupts 

System. Port 

(5) 

Process  Description 

System  interrupts  are  temporarily 

turned 

off  to 

service  this  interrupt.  The  UART  Line  Status  Register  -for 
communications  port  one  is  read  to  record  any  error  indications,  then 
the  Receive  Bu-f-fer  Register  is  read  to  place  the  character  in  the 
receive  bu-ffer.  The  bu-f-fer  tail  pointer  is  advanced  and  an  End  of 
Interrupt  command  is  sent  to  the  Programmable  Interrupt  Controller  to 
signal  the  end  of  the  interrupt  service  call. 


d. 

RS232_ISR2 

n ) 

Type;  Procedure 

(2) 

Purpose:  The  interrupt 

service  routine 

f  or 

communications 

port 

two. 

<3) 

Description  of  Parameters; 
Input;  An  interrupt  vector 

call  initiated 

f  rom 

communications 

port 

two. 

Output;  The  received  character  is  placed 

in  a 

buffer. 

(4) 

Subroutines  Called; 

DataCom. Disableinterrupts 
DataCom. Enabl einterrupts 
System. Port 

(5)  Process  Description 

System  interrupts  are  temporarily  turned  off  to 
service  this  interrupt.  The  UART  Line  Status  Register  for 
communications  port  two  is  read  to  record  any  error  indications,  then 
the  Receive  Buffer  Register  is  read  to  place  the  character  in  the 
receive  buffer.  The  buffer  tail  pointer  is  advanced  and  an  End  of 
Interrupt  command  is  sent  to  the  Programmable  Interrupt  Controller  to 
signal  the  end  of  the  interrupt  service  call. 

e.  RS_Break 

fl)  Type:  Procedure 
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(2)  PurpoEe:  To  instruct  the  DART  on  the  currently 

selected  communications  port  to  send  and  RS-232  BREAK  signal. 

(3)  Description  o-f  Parameters: 

Input:  Current_Com  <public) 

Output:  A  break  signal  is  generated  on  the 

currently  selected  communications  port. 

(4)  Subroutines  Called: 

CRT. Del  ay 

System. Port 

(5)  Process  Description 

This  process  ORs  the  current  contents  o-f  the  DART 
Line  Control  Register  with  constant  LCR_BREAK  to  instruct  the  DART  to 
send  a  constant  space  on  the  output  line.  A  UART  receiving  this  will 
set  its  LSR_BREAK  to  signal  a  BREAK  received.  A-fter  a  delay  o-f  about 
1/5  second,  the  line  is  restored. 

f .  RS232_Avai 1 

Type:  Function 

i'2)  Purpose:  Informs  the  calling  program  that 

received  characters  are  available  to  be  read  from  the  current 
communi cations  port. 

(3}  Efescription  of  Parameters: 

Input:  Current_Com  (public) 

Output:  TRUE  if  characters  available,  FALSE 

Dthe-wi se. 

(4)  Subroutines  Called:  None. 

(5,J  Process  Description 

"he  buffer  pointers  RS_Buf_Head  I  Current_Com  ] 
and  RS_F:uf_"aiI  [  Cur:"ent_Con-:  3  will  be  equal  if  the  buffer  is  empty, 
the  f\.-iCtior  returns  the  result  of  this  test. 

g.  Purgeline 

'•  1 )  "ype:  F'rocedure 

(2)  Purpose:  Dumo  the  receive  buffer  and  clear  the 
receive  registers.  Used  to  clea-  the  communications  line  prior  to 
an  )'modet  oaclet  receotion  (Christensen,  19B2,  p.  3'. 

'3)  Desc" lotion  of  Parameters: 

Inout:  Current_Com  (public) 

O-utput:  The  internal  buffers  are  cleared. 

i'4;  Subroutines  Called: 

System, Port 

(5'  Process  Description 

The  buffer  pointers  RS_Buf_Head  C  Current_Com  3 
and  RS_Buf_haii  [  Currer.t_Com  3  are  both  set  to  their  initial 
conditions  (rero'  and  the  UART  receive  register  is  read  to  reset  any 
pending  receive  interrupt. 

h.  Connected 

( 1 Type:  Function 


(2)  Purpose:  Returns  TRUE  i-f  the  currently  selected 

communications  port  is  receiving  a  hardware  handshaking  signal, 
indicating  the  presence  o-f  a  modem  or  a  directly  connected  computer. 

(3)  Description  o-f  Parameters: 

Input:  Current_Com  (public) 

Output:  TRUE  i-f  connected,  FALSE  otherwise. 

(4)  Subroutines  Called: 

System. Port 

(5)  Process  Description 

The  UART  Modem  Status  Register  is  read  to  detect 
the  presence  of  Data  Carrier  Detect.  This  line  is  normally  TRUE  if  a 
modem  or  computer  is  connected  . 

i .  RS_232_Peek 

(1)  Type:  Function 

(2)  Purpose:  Nondestructive  read  of  the  receive 

buffer  of  the  current  communications  port.  Used  to  assist  Xmodem 
synchronization  in  Unit  Xmodm. 

(3)  Description  of  Parameters; 

Input:  Current_Com  (public) 

Output:  The  next  available  received  character. 

(4)  Subroutines  Called: 

CRT. Delay 

(5>  Process  Description 

The  receive  buffer  pointers  are  compared  for  the 
currently  selected  communications  port.  If  unequal,  a  character  is 
available.  If  equal,  a  short  delay  is  run  and  the  test  is  repeated. 
When  a  character  is  available,  it  is  returned  from  this  function 
without  disturbing  the  pointers. 

j.  RS_232_In 

(1)  Type:  Function 

(2)  Purpose:  Read  the  next  character  from  the  the 

receive  bu-ffe>-  of  the  current  communications  port.  Used  for  all  port 
reads . 

(3)  Description  o-f  Parameters: 

Input:  Current_Com  (public) 

Output:  The  next  available  received  character. 

(4i  Subroutines  Called: 

CRT. Del  ay 

(5)  Process  Description 

The  receive  buffer  pointers  are  compared  for  the 
currently  selected  communications  port.  It  unequal,  a  character  is 
available.  If  equal,  a  short  delay  is  run  and  the  test  is  repeated. 
When  a  character  is  available,  it  is  returned  from  this  function  and 
the  buffer  head  pointer  is  advanced. 

k.  RS_232_0ut 

(11  Type:  Procedure. 
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(2)  Purpose;  Send  a  character  out  o-f  the  currently 
selected  communications  port.  Used  -for  all  port  writes. 

(3)  Description  o-f  Parameters: 

Input;  Current_Com  (public);  and  Param,  the 

character  to  be  sent. 

Output;  The  character  is  sent  to  the  port. 

R3_Error  (public)  is  cleared. 

(4)  Subroutines  Called: 

CRT. Delay 

System. Port 

(5)  Process  Description 

The  UART  Line  Status  Register  is  checked  on  the 
currently  selected  communications  port  to  see  it  the  last  character  has 
been  sent.  It  not,  a  short  delay  is  runand  the  test  is  repeated.  When 
the  butter  is  clear,  the  port  Modem  Control  Register  Request  To  Send 
and  0UT2  lines  are  set  to  insure  the  hardware  is  prepared  to  send  a 
character.  Next,  the  corresponding  Data  Set  Ready  and  Clear  To  Send 
status  lines  are  checked  and  short  delays  run  until  they  are  true,  it 
the  options  are  selected.  Last,  the  character  is  sent  to  the  port  and 
the  error  tlag  is  cleared. 

l.  Enable 

(1)  Type;  Procedure 

(2)  Purpose:  Enable  receive  interrupts  tor  a 

communications  port. 

(3)  Description  ot  Parameters: 

Input:  IRQ. 

Output;  The  proper  Interrupt  Mask  Bit  in  the 
Programmable  Interrupt  Controller  is  cleared  tor  the  communications 
port. 

(4)  Subroutines  Called; 

System. Port 

(S'  Process  Description 

The  procedure  masks  ott  the  selected  bit  in  the 
PIC  Interrupt  Mask  Register. 

m.  Disable 

(1)  Type:  Procedure 

(2)  Purpose;  Disable  receive  interrupts  tor  a 

communications  port. 

(3)  Description  ot  Parameters: 

Input:  IRQ. 

Output:  The  proper  Interrupt  Mask  Bit  in  the 

Programmable  Interrupt  Controller  is  set  tor  the  communications  port. 

(4)  Subroutines  Called: 

System. Port 

(5)  Process  Description 

The  procedure  sets  the  selected  bit  in  the  PIC 
Interrupt  Mas)  Register. 
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n.  Establish 

(1)  Type:  Procedure 

(2)  Purpose;  Enable  the  Data  Terminal  Ready,  0UT2  and 
Request  To  Send  handshaking  bits  on  the  selected  communications  port. 

(3)  Description  o-f  Parameters; 

Input:  Com,  the  communications  port  to  be 

enabled. 

Output;  The  appropriate  lines  are  set. 

(4)  Subroutines  Called: 

System. Port 

(5)  Process  Description 

The  OR  combination  o-f  the  Data  Terminal  Ready, 
0UT2  and  Request  To  Send  handshaking  bits  are  set. 

o.  Send_E0I 

(1)  Type:  Procedure 

(2)  Purpose;  Sends  a  specific  End  Of  Interrupt 

command  to  the  8259  Programmable  Interrupt  Controller  to  indicate  that 
a  particular  interrupt  hrs  been  serviced. 

<3)  Description  of  Parameters; 

Input:  IRO,  the  interrupt  serviced. 

Output;  The  Interrupt  Service  Register  bit  for 
the  specific  intei^rupt  is  cleared. 

(4)  Subroutines  Called; 

System. Port 

(5)  Process  Description 

The  bit  for  specific  interrupt  is  OR'd  with  t60 

and  sent  to  the  PIC. 

p.  Reset_Chip 

(1)  Type:  Procedure 

(2)  Purpose;  To  shut  down  a  communications  port. 

(3)  Description  of  Parameters; 

Input;  Com,  the  port  to  be  disabled. 

Output;  The  port  is  cleared,  all  handshaking 
lines  are  cleared,  and  interrupts  are  disabled  on  the  DART. 

(4)  Subroutines  Called; 

System. UpCase 
System. Length 

(5-  process  Description 

The  UART  Line  Status  Register  is  read  repeatedly 
to  clear  all  receive  buff ?rs.  The  system  interrupts  are  disabled  to 
prevent  further  interrupts  from  this  port.  The  interrupts  from  the 
UART  are  disabled,  and  all  port  handshaking  lines  are  dropped.  The 
Programmable  Interrupt  Controller  interrupt  enable  line  for  this  port 
is  reset.  System  interrupts  are  then  restored. 

q.  RS232_Init 

(1)  Type;  Procedure 

(2/  Purpose;  Initialize  the  selected  communications 

port . 
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(3)  Description  o-f  Parameters; 

Input;  COM,  the  port  to  be  initialized;  and 
Params,  the  port  parameter  word. 

Output;  The  port  is  initialized. 

(4)  Subroutines  Called: 

DOS. Intr ($14) ,  the  communications  port  service 

interrupt. 

(5)  Process  Description 

Com  is  adjusted  to  satis-fy  the  requirements  o-f 
Intr($14)  and  register  DX  loaded  with  the  communications  port  to  be 
initialized.  The  packed  word,  Params,  is  loaded  into  register  AX  and 
the  interrupt  is  called. 

r.  SelectBitRate 

(1)  Type:  Procedure 

(2)  Purpose:  Initialize  the  selected  communications 

port.  (3)  Description  o-f  Parameters: 

Input:  COM,  the  port  to  be  initialized;  and 
Speed,  the  data  rate  -for  the  port. 

Output:  The  port  is  initialized. 

(4)  Subroutines  Called: 

System. Port 

System. For tw 

(5)  Process  Description 

The  communications  port  identi-fied  by  Com  is 
accessed  and  its  Divisor  Latch  Access  Bit  is  set  to  access  the  bit  rate 
registers.  The  Speed  parameter  is  mapped  into  a  16  bit  control  word 
and  placed  in  the  UART  Divisor  Latch.  The  Divisor  Latch  Access  Bit  is 
then  cleared  and  the  port  is  allowed  to  settle.  The  current  baud  rate 
setting  is  stored  in  the  port  initialization  record  -for  later 
re-f  erence. 

s.  SelectWordLength 

(1)  Type:  Procedure 

(2)  Purpose;  Initialize  the  selected  communications 

port. 

(3)  Description  o-f  Parameters; 

Input;  COM,  the  port  to  be  initialized;  and 
Length,  the  word  length  -for  the  port. 

Output;  The  port  is  initialized. 

(4>  Subroutines  Called; 

System. Port 

System. Portw 

(5)  Process  Description 

The  Speed  parameter  is  mapped  into  an  8  bit 
control  word  and  placed  in  the  UART  Line  Control  Register.  The  current 
length  setting  is  stored  in  the  port  initialization  record  -for  later 
re-f  erence. 

t.  SelectFraming 

(1)  Type:  Procedure 
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(2)  Purpose:  Initialize  the  selected  communications 

port. 

(3)  Description  of  Parameters: 

Input:  COM,  the  port  to  be  initialized;  and  Stop, 
the  number  of  stop  bits  for  the  port. 

Output:  The  port  is  initialized. 

(4)  Subroutines  Called: 

System. Port 
System. Portw 

(5)  Process  Description 

The  Stop  parameter  is  mapped  into  an  8  bit  control 
word  and  placed  in  the  DART  Line  Control  Register.  The  current  stop 
setting  is  stored  in  the  port  initialization  record  for  later 
reference. 

u.  SelectParity 

(1)  Type:  Procedure 

(2)  Purpose:  Initialize  the  selected  communications 

port . 

(3)  Description  of  Parameters: 

Input:  COM,  the  port  to  be  initialized;  and  P, 

the  type  of  parity  for  the  port. 

Output:  The  port  is  initialized. 

(4)  Subroutines  Called; 

System. Port 
System. Portw 

(5)  Process  Description 

The  P  parameter  is  mapped  into  an  8  bit  control 
word  and  placed  in  the  UART  Line  Control  Register.  The  current  stop 
parity  is  stored  in  the  port  initialization  record  for  later  reference. 

V.  Send_String 

<1)  Type:  Procedure. 

(2/  Purpose;  To  send  an  ASCII  string  of  characters 
out  the  currently  selected  COM  port.  Typically  used  to  send  command 
strings  to  a  modem. 

(3)  Description  of  Parameters: 

Input;  S,  the  string  to  be  sent. 

Output:  The  string  is  sent  out  the  currently 

selected  COM  port. 

(4)  Subroutines  Called; 

Dat  aCom . RS232_0ut 
System. Length 

(5)  Process  Description 

The  string  is  treated  as  an  indexed  array  of 
characters,  and  each  character  is  sent  to  procedure  RS232_Dut  in  turn. 

w.  RS_Initialize 

(1)  Type:  Procedure. 

(2)  Purpose;  To  set  the  communications  port  to  the 
input  parameters. 
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(3)  Description  O'f  Parameters: 

Input:  Com,  the  port  to  be  Initialized;  Speed,  an 
enumerated  type  ranging  -from  110  baud  to  9600  baud;  Parity,  an 
enumerated  type  specifying  No  Parity,  Odd,  Even,  or  Don't  Care;  The 
number  of  stop  bits  (1  or  2)  and  the  length  of  the  character  word  (5, 
6,  7  or  B  bits) . 

(3)  Output:  The  communications  port  is  initialized. 

(4)  Subroutines  Called: 

DOS. Intr ($14)  (BIOS  communications  port  service) 

DOS.SetIntVec 

System. Port 

(5)  Process  Description 

Com  and  the  input  parameters  are  adjusted  for  the 
BIOS  call.  The  BIOS  call  initializes  the  port,  however,  it  also 
disables  DART  receive  interrupts.  These  are  enabled  separately  and  the 
DART  Divisor  Latch  Access  Bit  is  cleared  to  insure  that  further  writes 
to  the  UART  will  set  the  proper  registers.  The  UART  is  recycled  and 
the  hardware  handshaking  lines  set.  Receive  interrupts  are  enabled  at 
the  UART,  and  the  Programmable  Interrupt  Controller  is  enabled  for  the 
current  communications  port.  The  proper  interrupt  vector  for  this  port 
is  set  to  point  to  our  interrupt  service  routine.  The  settings  stored 
in  data  structure  CommPort  C  Com  ]  for  future  reference  by  RS_Restore. 

X .  RS_Restore 

(1)  Type;  Procedure/Function 

(2)  Purpose;  Restores  the  parameters  of  the 
communications  port  to  the  settings  stored  in  data  structure  CommPort  C 
Com  ].  Used  after  a  child  process  is  spawned  to  recover  communications 
port  operations. 

(3)  Description  of  Parameters; 

Input;  Com,  the  communications  port  to  be 

restored 

Output;  The  selected  port  is  restored. 

(4)  Subroutines  Called; 

DataCom.RS_Initial ize 

(5)  Process  Description 

Com  and  the  parameters  stored  in  Comport  C  Com  1 
are  used  to  call  RS_Initia.lize. 

y.  RS_Eight_Bits 

(1)  Type;  Procedure 

(2)  Purpose;  To  set  the  current  communications  port 
to  eight  data  bits  for  Xmodm  transfers. 

(3)  Description  of  Parameters; 

Input:  Current_Com  (public) 

Output;  The  communications  port  is  set  for  eight 

data  bits. 

(4)  Subroutines  Called: 

System. Port 


B? 


(5)  Process  Description 

The  DART  Line  Control  Register  is  ORed  with  $03, 
setting  the  number  o-f  data  bits  to  eight. 

z.  RS_Cleanup 

(1)  Type:  Procedure 

(2)  Purpose:  Disables  interrupts  -for  the  current 

communications  port  at  the  Programmable  Interrupt  Controller. 

(3)  Description  o-f  Parameters; 

Input;  Current_Com  (public) 

Output;  The  PIC  is  reset  -for  this  interrupt. 

(4)  Subroutines  Called: 

System. Port 

(5)  Process  Description 

The  interrupt  mask  bit  -for  the  current 
communications  port  is  set. 

aa.  Hex Byte 

(1)  Type:  Function 

(2)  Purpose:  Converts  a  byte  into  its  hexadecimal 
string  equivalent  for  the  Unit  Exit  procedure. 

(3)  Description  of  Parameters; 

Input;  B,  the  byte  to  be  converted. 

Output:  A  string  of  length  two. 

(4)  Subroutines  Called:  None. 

(5)  Process  Description 

The  byte  is  first  shifted  right  four  bits  to 
consider  only  the  high  order  bits,  and  a  character  indexed  from  the 
hexadecimal  sequence  HexDigit.  This  is  concatenated  with  the  character 
produced  by  indexing  HexDigit  by  the  low  order  four  bits  of  B  to  form 
the  two  digit  hex  equivalent. 

ab.  HexWord 

(1)  Type:  Function 

(2)  Purpose;  Converts  a  word  into  its  hexadecimal 
string  equivalent  for  the  Unit  Exit  procedure, 

(3)  Description  of  Parameters; 

Input;  I,  the  word  to  be  converted. 

Output:  A  string  of  length  four. 

(4)  Subroutines  Called; 

DataCom. HexByte. 

System. Hi 

System. Lo 

(5/  Process  Description 

HexByte  is  called  with  both  the  high  and  low  order 
bytes  of  the  word,  and  the  resulting  function  results  concatenated  to 
produce  a  four  digit  hex  equivalent. 

ac.  DataCo(mn_Error 

(1)  Type;  Procedure 
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(2)  Purpose;  Provides  a  robust  means  o-f  handling 
program  -faults  while  still  insuring  that  interrupts  are  restored. 

(3)  Description  of  Parameters: 

Input;  System  variables  ExitCode,  a  word  that 
gives  an  indicaton  of  why  program  termination  occured;  and  ErrorAddr,  a 
pointer  containing  a  runtime  error  address  if  nonzero; 

Output:  The  procedure  writes  any  error  messages 

desired  to  the  display  and  resets  any  interrupt  vectors  to  their  state 
before  program  execution. 

(4)  Subroutines  Called: 

Dos. SetIntVec 

System. Assign 

System. Rewrite 

DataCom.Hex 

(5)  Process  Description 

This  procedure  is  chained  in  to  the  normal  exit 
processing  that  the  compiler  installs  for  the  unit  and  the  unit 
initialization  code.  It  must  be  compiled  using  the  Far  Call  model  to 
be  accessible  by  the  program  runtime  library.  The  procedure  first 
checks  ExitCode  and  ErrorAddr  for  abmormal  program  termination  and  sets 
Output  to  the  standard  file  output  for  display  to  allow  error  message 
display.  The  procedure  then  reports  a  USER  BREAK  or  runtime  error  and 
address  if  applicable.  The  program  then  insures  any  interrupt  vectors 
are  restored  and  the  communications  ports  are  shut  down.  The 
Programmable  Interrupt  Controller  Interrupt  Mask  Register  is  restored 
from  a  saved  location.  Finally,  the  original  exit  code  for  this  unit 
15  restored  from  a  saved  location  for  use  by  the  runtime  system 
(TurboPascal  Owner '  Handbook,  pp.  369-370). 

ad.  DataCom  Unit  Initialization  Code 

(1)  Type:  Procedure 

(2)  Purpose:  Initializes  the  Unit,  stores  critical 
vectors  and  registers  for  restoration  on  program  termination. 

(3)  Description  of  Parameters: 

Input:  System  variables  ExitProc,  a  pointer  that 

gives  the  address  of  the  DataCom  unit  exit  procedure  in  the  runtime 
1 ibrary. 

Output:  The  procedure  DataComm_Error  is  linked  in 

before  the  runtime  exit  procedure  to  accomplish  an  orderly  termination 
of  the  unit. 

(4)  Subroutines  Called; 

Dos. Get IntVec 

System. Port 

(5)  Process  Description 

The  procedure  first  sets  CRT. CheckBreak  to  TRUE  to 
allow  user  termination  of  the  program.  A  pointer  to  the  runtime  exit 
procedure  is  saved,  as  well  as  the  current  settings  for  the 
Programmable  Interrupt  Controller  Interrupt  Mask  Register  for 
restoration  on  exit.  GetIntVec  is  used  to  save  the  current  interrupt 
vectors  for  communications  ports  one  and  two  for  restoration  on  exit. 
The  communications  port  buffers  are  cleared,  and  the  unit  supplied  exit 
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procedure  DataComm_Error  is  linked  in  to  the  runtime  system 
(TurboPascal  Owner'  Handbook,  pp.  369-370).  Finally,  the  two 
communications  ports  are  assigned  default  parameters,  although  not 
initialized  at  this  time. 
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APPENDIX  F 


MAINTENANCE  MANUAL  FOR  UNIT  DIRECTOR 


A.  UNIT  DIRECTOR 

1.  Con-figuration  Inforaaticm 

a.  Language  -  Turbo  Pascal  Version  4.0 

b.  Coepiler  Version  -  4.0 

c.  Target  Hardware  -  IBM  PC/AT  or  close  cowpatible 

d.  Operating  Systea  -  Microsoft  MS-DOS  (Version  3.x) 

e.  Progran  Description 

Director  is  a  set  of  functions  and  procedures  that 
allow  the  output  MS  DOS  file  directories  to  a  windowed  environment. 
Masking  options  and  a  selector  for  normal  or  abbreviated  (similar  to 
the  MS-DOS  /w  switch)  displays  are  allowed. 

2.  Subroutines  Contained 

a.  StandBy 

(1)  Type;  Procedure 

(2)  Purpose;  Used  internally  by  ShowDir,  this 
procedure  displays  an  operator  prompt  to  pause  long  listings.  The 
procedure  exits  when  a  key  is  pressed. 

(3)  Description  of  Parameters; 

Input;  Operator  input  from  System. ReadKey 
Output:  Prompt  information  to  the  window  supplied 
by  the  calling  progi^am. 

(4)  Subroutines  Called: 

CRT.GoToXY 
CRT.HighVideo 
CRT.WhereX 
CPT.WhereY 
System. ReadKey 

(5)  Process  Description 

The  procedure  notes  the  position  of  the  cursor, 
writes  a  prompt  to  the  operator,  and  waits  until  the  operator  presses  a 
key.  The  procedure  then  blanks  the  prompt,  and  exits. 

b.  View_Dir 

(1)  Type:  Procedure 

(2)  Purpose;  Provides  the  selective  display  of  a 
directory,  with  the  filenames  and  subdirectories  displayed  in  summary 
form  (no  date,  size  or  attribute  data). 

(3)  Description  of  Parameters: 

Input:  MatchPtrn,  which  specifies  the  path  and 

wildcard  options;  FromLine  and  ToLine,  which  specify  the  window  size. 
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Output;  To  the  window  supplied  by  the  calling 

program. 

(4)  Subroutines  Called; 

CRT.GoToXY 

CRT.HighVideo 

CRT.Lowvideo 

DOS. FindFirst 
DOS.FindNext 

(5)  Process  Description 

The  procedure  positions  the  cursor  at  column  one 
of  the  line  specified  in  FirstLine,  then  utilizes  the  procedure 
FindFirst  to  find  any  file  or  directory  matching  MatchPtrn.  This  sets 
up  the  DOS  unit  for  subsequent  searches.  The  first  entry  found  is 
displayed  and  then  FindNext  is  used  tor  subsequent  entries  until  the 
directory  is  exhausted.  Subdirectories  are  displayed  in  highlighted 
video  for  ease  of  recognition  in  this  summary  display. 

c.  WriteEntry 

(1)  Type:  Procedure 

<!2)  Purpose;  Displays  the  complete  file  or  directory 
information  of  attributes,  size,  date  and  time  for  procedure  ShowDir. 

(3)  Description  of  Parameters; 

Input:  Dirinfo,  a  DOS  Unit  structure  that 

contains  packed  information  about  the  most  recently  found  directory 
entry;  line,  the  window  line  to  display  the  information  on.  Output: 
To  the  window  supplied  by  the  celling  program. 

(4)  Subroutines  Celled: 

BetAttri but 
CRT.GoToXY 
CRT.HighVideo 
CRT.Lowvideo 

DOS. FindFirst 
DOS.FindNext 
DOS. UnPackTime 
<5,>  Process  Description 

The  procedure  calls  library  procedures  in  the  DOS 
unit  to  unpack  the  time  entry  in  Dirlnfo.  GetAttribut  maps  the 
attribute  order  to  a  string  representation.  The  name,  "<DIR>" 
designation  or  file  size,  creation  date  and  time,  and  the  attribute 
string  are  then  written  on  the  display  at  Line  in  MS-DOS  format. 

d.  GetAttirbut 

(1)  Type:  Procedure 

(2)  Purpose;  Map  an  MS-DOS  attribute  number  to  a  text 

string. 

(3)  Description  of  Parameters; 

Input;  attr,  the  ordinal  MS-DOS  attribute 

combination. 

Output:  attribut,  a  string  to  return  the  text 

string  representation  of  the  attribute. 

(4)  Subroutines  Called; 

System. Str 
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(5)  Process  Description 

The  attr  variable  is  used  as  a  selector  in  a  case 
construct  to  load  attr i but  with  the  proper  string.  H  the  variable 
does  not  map,  the  hexadecimal  number  in  the  variable  attr  is  converted 
to  a  string  -for  display. 


e.  Show_Dir 

(1)  Type:  Procedure 

(2)  Purpose;  Provides  the  selective  display  of  a 
directory,  with  the  filenames  and  subdirectories  displayed  in  summary 
form  (no  date,  size  or  attribute  data). 

(3)  Description  of  Parameters; 

Input;  MatchPtrn,  which  specifies  the  path  and 
wildcard  options;  FromLine  and  ToLine,  which  specify  the  window  size; 
error,  which  reports  DOSerror  back  to  the  calling  program. 

Output;  To  the  window  supplied  by  the  calling 


program. 

(4)  Subroutines  Called: 

CRT.ClrEOL 

CRT.ClrScr 

CRT.GoTgXY 

CRT.HighY'ideo 

CRT.Lovideo 

Di  rector . Wr i teEntry 
DOS.FindFirst 
DOS.FindNext 
System. INC 

(5)  Process  Description 

The  procedure  utilizes  the  procedure  FindFirst  to 
find  any  file  or  directory  matching  MatchPtrn.  This  sets  up  the  DOS 
unit  for  subsequent  searches.  Depending  on  the  state  of  DOS. DOSError , 
which  indicates  error  conditions  on  the  attempt  to  find  a  directory 
entry,  the  entry  is  either  displayed  via  WriteEntry  or  an  error  or 
status  message  is  displayed  and  the  procedure  exits.  The  first  entry 
found  is  displayed  and  then  FindNext  is  used  for  subsequent  entries 
until  the  directory  is  exhausted.  For  directories  that  exceed  the 
window  size  specified  by  FromLine  and  ToLine,  the  display  is  paused  by 
a  call  to  the  procedure  StandBy  and  the  operator  is  allowed  to  press  a 


key  to  continue. 
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APPENDIX  G 

riAINTENAtCE  HANUAL  FOR  UNIT  ERRORCOD 


A.  UNIT  ERRORCOD 

1.  Configuration  Inforaation 

a.  Language  -  Turbo  Pascal  Version  4.0 

b.  Compiler  Version  -  4.0 

c.  Target  HardNare  -  IBM  PC/AT  or  close  compatible 

d.  Operating  System  -  Hicrosoft  NS-DOS  (Version  3.x) 

e.  Program  Description 

ErrorCod  is  a  array  of  string  constants  mapped  by  the 
DOS  Error  Code,  Error  Class,  Recommended  Error  Action  and  Error  Locus 
indices  found  in  (Microsoft,  1986,  pp.  3-1  -  3.11,  4.254  -  4.255).  The 
unit  IS  used  by  the  units  Parser,  Spawn  and  the  program  Distrib  to 
report  errors.  A  procedure  is  also  provided  to  retrieve  extended  error 
code  information  available  in  MS-DOS  versions  3.0  and  above  by  DOS 
■function  call  $59. 

2.  Subroutines  Contained 

a.  Extended_Error_Code 

(1)  Types  Procedure 

(2)  Purpose:  To  return  the  extended  error  code,  class 
and  locus  information  available  in  MS  DOS  version  3.0  and  later,  in 
response  to  a  DOSERROR  result. 

(3)  Description  of  Parameters:  txtended_Error_Code 

returns  the  Error  Code,  Error  Class  and  Error  Locus  in  the  respective 
var i abl es. 

(4)  Subroutines  Called: 

DOS. Intr (f21) 

(5)  Process  Description 

This  procedure  calls  DOS  function  f59  with 
register  BX  =  0  to  get  extended  error  information  from  MS  DOS  following 
an  operating  system  error  flag,  as  indicated  by  the  Turbo  Pascal 
variable  DOSERROR  >  0. 
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APPENDIX  H 


MAINTENANCE  MANUAL  FOR  UNIT  GENERAL 


A.  UNIT  GENERAL 

1.  Con-f iguraticxi  Inforaation 

a.  Language  -  Turbo  Pascal  Version  4.0 

b.  Coaip  il€>r  Version  -  4.0 

c.  Target  Hard»«are  -  IBM  PC/AT  or  close  coapatible 

d.  Operating  System  -  Microsoft  MS-DOS  (Version  3.x) 

e.  Program  Description 

General  is  a  collection  o-f  general  purpose  routines 
that  support  the  Wndow  Unit  and  other  modules. 

2.  Subroutines  Contained 

a.  FillNord 

(1)  Type;  Procedure 

(2)  Purpose:  Given  a  variable,  V,  the  procedure  -fills 
Num  words  in  the  variable  with  integer  Value. 

>'3)  Description  of  Parameters; 

Input:  Variable  V;  Num,  the  number  of  words  to  be 
filled;  and  Value,  the  fill  value. 

Output;  V  is  returned  after  filling. 

(4)  Subroutines  Called: 

Inline  assembly 

(5)  Process  Description 

Register  DI  is  initialized  with  the  starting 
D-^fset  of  the  variable  V,  CX  contains  the  number  of  words  to  be  filled, 
and  AX  contains  the  Value  to  be  used  to  fill.  The  STOSW  instruction 
autoincrements  the  CT  register  after  each  store  and  decrements  CX.  The 
loop  ends  when  CX  =  0.  Using  assembly  language  string  processing 

instructions,  the  procedure  uses  the  DI  index  register  to  point  to  the 
memory  iterates  a  store  operation  with  the  16  bit  word  Value  beginning 
at  the  first  location  in  V  and  continuing  for  Num  iterations, 
incrementing  the  storage  location  by  a  16  bit  word  each  time. 

b.  Exchange 

(1'  Type:  Procedure 

>2)  Purpose:  Exchange  the  contents  of  two  variables 

without  compatibility  checking. 

(3)  Description  of  Parameters; 

Input:  S,  D  are  the  variables  to  be  exhanged,  and 
L  is  the  number  bytes  to  be  exchanged. 
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Output:  The  variables  S  and  D  are  returned  after 

the  exchange. 

(4)  Subroutines  Called: 

Inline  assembly 

(5)  Process  Description 

Register  DI  is  loaded  with  the  offset  of  variable 
S,  register  SI  with  that  of  D.  CX  receives  L.  The  value  at  variable 
D,  indexed  by  DI,  is  loaded  into  AX  and  exchanged  with  the  value  at 
variable  S,  indexed  by  SI.  STOSB  autoincrements  both  index  registers 
and  decrements  CX.  The  loop  stops  as  CX  reaches  0. 

c.  Beep 

(1)  Type:  Procedure 

(2)  Purpose:  Produce  a  speaker  tone  for  1/4  second. 

(3)  Description  of  Parameters: 

Input:  Preq,  the  desired  tone  frequency. 

Output;  A  speaker  tone. 

(4)  Subroutines  Called: 

CRT. Del  ay 

CRT. Sound 
CRT. NoSound 

(5/  Process  Description 

CRT  procedures  NoSound  and  Sound  operate  in 
tandem.  First  the  speaker  is  silenced.  Then,  the  Sound  procedure  in 
the  CRT  Unit  is  called  with  parameter  Freq  and  a  delay  of  1/4  second  is 
allowed  before  turning  the  speaker  off  again. 

d.  Max 

'1)  Type:  Function 

(2'  Purpose:  Returns  the  larger  of  two  integers. 
Typically  used  with  Open_Window  to  insure  the  window  is  large  enough  to 
hold  a  menu  display. 

<31  Description  of  Parameters: 

Input:  X,  Y,  the  integers  to  be  compared. 

Output:  The  larger  integer  of  the  input 

paramete'-s. 

(4)  Subroutines  Called:  None. 

(5)  Process  Description 

The  two  integers  are  compared  and  the  function 
result  equated  to  the  larger. 

e.  Min 

(1)  Type:  Function 

(2)  Purpose:  Returns  the  smaller  of  two  integers. 
Typically  used  with  Open_Window  to  insure  the  window  is  large  enough  to 
hold  a  menu  display. 

'3)  Description  of  Parameters: 

Input:  X,  Y,  the  integers  to  be  compared. 

Output:  The  smaller  integer  of  the  input 

parameters. 

(4>  Subroutines  Called;  None. 
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(5)  Process  Description 

The  two  integers  are  compared  and  the  -function 
result  equated  to  the  smaller. 

f.  Cursor_Si2e 

(1)  Type:  Function 

(2)  Purpose:  Sets  the  cursor  displayed  as  either  an 

underline  or  a  block. 

(3)  Description  o-f  Parameters; 

Input;  Cursor_Type  an  enumerated  type  consisting 
of  line,  block  or  invisible.  Mono  is  TRUE  if  the  display  is 
monochrome,  FALSE  if  color. 

Output;  The  video  card  is  updated  to  display  the 

selected  cursor. 

(4)  Subroutines  Called: 

DOS. Intr (f 10)  (video  service) 

(5)  Process  Description 

Register  AX  is  set  to  $10  to  call  the  BIOS  video 
service,  and  the  CX  register  is  set  to  the  proper  value  for  the  cursor 
requested  prior  to  the  call. 

g.  6et_Time 

(1)  Type:  Function 

(2)  Purpose:  Returns  a  string  with  the  current  time. 

<3)  Description  of  Parameters: 

Input:  Nothing. 

Output;  A  string  with  the  current  time  in  format 

HH:MM;S3  ;;M. 

(4)  Subroutines  Called: 

DOS. Intr ($21 )  (DOS  service) 

System. Str 

(5)  Process  Description 

Register  AH  is  set  to  $2C  to  call  the  DOS  time 
ser-v'ice,  and  the  CH,  CL,  DH  and  DL  return  the  ordinal  number  for  hours, 
minutes,  seconds  and  hundreths  of  seconds  (Norton,  1985,  p.  287).  The 
Turbo  Pascal  Str  procedure  is  used  to  convert  each  number  into  a  string 
representation.  The  strings  are  then  concatenated  with  formatting 
characters  and  AM  or  PM  notations. 
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APPENDIX  I 


MAINTENANCE  MANUAL  FOR  UNIT  MISCPACK 
A.  UNIT  Miscpack 

1.  Configuration  Inforaation 

a.  Language  -  Turbo  Pascal  Version  4.0 

b.  Coepiler  Version  -  4.0 

c.  Target  Hard*«are  -  IBM  PC/AT  or  close  coapatible 

d.  Operating  Systee  ~  Microsoft  MS-DOS  (Version  3.x) 

e.  Prograe  Description 

Miscpack  is  a  collection  of  data  types  and  utility 
routines  supporting  these  other  units;  Xmodm,  Parser,  Spawn,  Redirect, 
and  the  main  program  Distrib.  The  strong  typing  features  of  Turbo 
Pascal  require  that  instances  data  types  in  different  units  that  must 
be  equated  be  declared  in  one  place  to  be  compatible  at  compile  time. 

2.  Subroutines  Contained 

a.  BumpStrup 

(1)  Type;  Procedure 

(2)  Purpose;  To  convert  any  string  to  upper  case 

characters. 

(3)  Description  of  Parameters;  S  is  the  formal 
variable  for  a  string  of  any  length,  since  length  checking  is  relaxed. 

(4)  Subroutines  Called; 

System. UpCase 

System. Length 

(5)  Process  Description 

This  procedure  returns  the  string  as  a  call  by 
reference  parameter  after  converting  all  of  the  characters  making  up 
the  string  to  uppercase. 


100 


APPENDIX  J 


HAINTENANCE  MANUAL  FOR  UNIT  PARSER 


A.  UNIT  PARSER 

1.  Configuraticxi  InforMaticx) 

a.  Language  -  Turbo  Pascal  Version  4.0 

b.  Coapiler  Version  -  4.0 

c.  Target  Hardware  -  IBM  PC/AT  or  close  coapatible 

d.  Operating  Syste*  -  Microsoft  MS-DOS  (Versicm  3.x) 

e.  Program  Description 

The  central  procedure  in  this  unit  is  Parser_Main, 
which  attempts  to  parse  and  execute  an  MS-DOS  style  command  on  the 
local  machine.  The  remaining  procedures  and  functions  support  this 
function. 


2.  Subroutines  Contained 

a.  argc 

(1)  Type;  Function 

(2)  Purpose;  Returns  the  number  of  arguments  in  the 
command  line  parsed  by  the  procedure  Parse.  Parse  must  be  called 
before  this  function  is  valid. 

(3)  Description  of  Parameters; 

Input;  None. 

Output;  The  number  of  arguments  in  the  command 

line  last  parsed. 

(4)  Subroutines  Called; 

(5)  Process  Description 

argc  is  set  to  the  variable  arg_count,  which  is 

loaded  by  Parse. 

b.  argvO 

(1)  Type:  Function 

(2)  Purpose;  Return  the  arg_count'th  argument 

encountered  on  the  last  command  line  parsed  by  procedure  Parse.  Parse 
must  be  called  before  this  function  is  valid. 

(3)  Description  of  Parameters; 

Input;  arg_count,  the  index  of  the  argument 
desired,  arg_array,  the  index  to  the  arguments  indexed,  and  arg_string, 
a  copy  of  the  command. 

Output;  fi  string,  up  to  128  characters  long, 
containing  the  arg_count'th  argument. 

(4)  Sub'^outines  Called;  None. 
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(5)  Process  Description 

Following  a  call  to  procedure  Parse,  the  data 
structure  arg_array  is  loaded  with  the  relative  index  o-f  the  start  of 
each  argument  in  the  command  line  parsed,  and  the  length  of  that 
argument.  A  length  of  zero  at  that  index  indicates  no  argument  was 
found.  To  construct  the  arg_count'th  argument,  the  command  saved  in 
arg_string  is  copied  starting  at  the  index  saved  in  the  index  field  in 
the  arg_count'th  record  of  array  drg_array,  for  the  length  field  in  the 
same  record. 

c.  Init_Parse 

<1)  Type:  Procedure 

(2)  Purpose;  To  parse  the  input  string  for 

Parser_Main,  and  initialize  the  component  strings  for  later  use. 

(3)  Description  of  Parameters; 

Input:  Command_s,  an  input  parameter  for 

Parse_Main. 

Output:  Pathspec  is  set  to  argv(O),  the  remaining 
drive,  node,  and  name  strings  are  parsed. 

(4)  Subroutines  Called: 

Parse. argv(O) 

Parse. ParseName 

(5)  Process  Description 

This  procedure  is  local  to  Parse_Main,  and  is  used 
any  time  the  command  string  being  parsed  is  first  parsed,  or  after  the 
command  has  been  modified. 

d.  Parse 

(1)  Type;  Procedure 

(2)  Purpose:  Set  up  the  argv  and  arc  functions  for  a 
command  line  received. 

(3)  Description  of  Parameters: 

Input:  Command,  a  string  variable  containing  the 

command  to  be  parsed. 

Output:  arg_array  and  arg_count  are  private 

variables  visible  inside  this  unit. 

(4)  Subroutines  Called: 

System. Inc 

System. Length 

(5)  Process  Description 

First,  a  copy  of  the  command  is  retained  outside 
this  procedure  in  arg_string  for  later  use  by  argv.  Arg_array  is  then 
initialized  to  clear  old  parsing  actions,  and  arg_count  is  initialized 
to  zero  to  act  as  an  index  for  arg_array.  The  cycle  begins  by  skipping 
leading  whitespace  in  the  command.  When  the  first  non  whitespace 
character  is  encountered,  the  index  of  the  string  is  noted  in  the 
arg_count'th  record  of  arg_array  and  non  whitespace  characters  are 
skipped  while  incrementing  the  length  field  to  determine  the  length  of 
the  argument.  Upon  reaching  whitespace  again,  the  next  record  in 
arg_array  is  selected  and  the  cycle  repeats  until  the  end  of  the  string 
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is  reached.  arg_array,  arg_count  and  arg_string  are  retained  in 
variables  private  to  the  unit  -for  -future  ust. 

e.  ParseName 

(1)  Type;  Procedure 

(2)  Purpose:  Break  a  complete  filename  with  path  and 
drive  into  its  component  parts. 

(3)  Description  of  Parameters; 

Input;  inName  is  a  composite  drive,  path  and 

filename  string. 

Output:  The  component  file  name,  extension,  name 

and  extension,  path,  drive  and  node  (if  any)  in  inName. 

(4)  Subroutines  Called: 

System. Copy 

System. Delete 

^  System. Length 

^  (5)  Process  Description 

.  The  syntax  for  inName  is: 

[Node: : lEDrive: 1 C\3directoryC\directory\ ]f i lespecC/Swi tchl ,  similar  to 
the  MS-DOS  command  line  syntax  with  the  exception  of  the  node 
designator,  which  was  intended  for  use  with  commands  intercepted  by  a 
background  process.  The  procedure  scans  the  command  line  backwards, 
looking  for  the  delimiters  established  in  the  constants  Path_or_dri ve 
and  Hode_o*'_dri ve.  When  such  delimiters  are  found,  the  suceeding 
substring  is  copied  into  the  appropriate  output  variable  and  the 
command  is  truncated  to  continue  the  scan  until  the  first  character  is 

reached.  The  filename,  if  any,  is  then  broken  down  similarly  into  its 

component  name  and  extension  (Swan,  pp.  26  -  27). 

f .  Resol ve_Comffland 

(1)  Type;  Function 

(2)  Purpose;  This  procedure  is  passes  the  first 

argument  in  a  command  line  and  attempts  to  create  a  complete  path 
specification  and  match  the  filename  to  a  command  normally  handled 
internally  by  the  DOS  command  processor  or  to  an  executable  file  in  the 
specified  directory.  Relative  directory  citations  are  adjusted  to  a 
path  from  the  root  directory.  Parser_Main  sets  up  the  component  parts 
of  the  first  argument  via  Parse_Name  and  places  them  in  the  variables 
immediately  above  this  function. 

(3)  Description  of  Parameters: 

Input;  Argurement,  the  first  parameter  in  the 
command  line  from  Par5er_Main. 

Output;  Argument,  corrected  to  a  complete  path 
specification  and  filename  extension.  The  function  returns  the  type  of 
file  detected  (batch  file,  com  file,  executable  file,  directory, 
pathstring  or  other  file)  as  an  enumerated  type. 

(^)  Subroutines  Called: 

System. GetDir 

DOS. FindFirst 

DOS.FindNcxt 
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(5)  Process  Description 

Resol  ve_command  -first  determines  the  current 
directory  with  GetDir,  and  adjusts  any  relative  directory  path 
spec  i-fi  cat  ion  -found  in  argument  to  a  -full  path  speci-f  ication  complete 
with  drive  and  root  directory,  i-f  needed.  This  is  needed  by  the  Exec 
function  called  by  Parser_Main.  If  no  file  extension  was  parsed  by 
Parse_Name,  Resol ve_Command  attempts  to  find  an  executable  file  in  the 
directory  cited  by  the  now  complete  path  specification  by  finding  a 
file  with  the  same  name  and  an  "COM",  "EXE",  or  "BAT"  extension.  They 
are  searched  for  in  reverse  priority  so  that  the  Exec  call  will  attempt 
to  execute  the  filename  with  the  highest  rank,  as  Command . Com  does 
(Mefford,  1988,  p.  336)  and  the  file  type  is  identified.  If  the 
command  did  cite  a  filename  with  extension,  the  file  type  is 
identified.  The  file  type  is  returned  by  the  function  for  Parser_Main. 
If  an  executable  file  was  not  found,  a  check  is  made  to  see  if  a 
directory  by  that  name  exists,  otherwise  a  general  pathname  type  is 
returned. 

g.  Parser_Main 

(1)  Type:  Procedure 

(2)  Purpose:  This  procedure  parses  a  command  received 
by  the  Slave  and  attempts  to  execute  it. 

(3)  Description  of  Parameters: 

Input:  Command_s,  the  received  command  string. 
Output:  Response  and  Error_Msg  are  strings 

containing  either  the  command  output  and  error  messages,  respectively, 
or  filenames  containing  the  information.  Restype  and  Errtype  tell  the 
calling  program  what  Response  and  Error_Msg  contain.  Prompt  is  the 
local  machine  current  directory  for  return  to  the  Master  via  the 
calling  program  after  the  response  is  competed. 

(4)  Subroutines  Called: 

Parser. InitParse 
Parser . Match_Command 
Parser . Resol ve_Command 
Parser . Parse 

Parser . Par seName 
Parser .  argc 
Parser . argv ( ) 

Spawn , Match_Command 

Spawn . Process_i ntr 1 nsi c_command 

Spawn . Run_l ocal 

System. Length 

(55  Process  Description 

On  entry,  command_s  contains  the  complete  command 
to  be  executed.  Its  component  arguments  are  isolated  by  Ini t_. 'arse, 
and  then  a  special  case  is  checked  to  see  if  a  simple  drive  change  is 
requested  (e.g.,  "C:").  If  sc,  the  internal  DOS  command  "CD"  is 

prefi  od  to  the  command  and  it  is  re-parsed.  The  filename  in  the  first 
argument  is  checked  by  Spawn. Match_Command  against  a  set  of  commands 
that  this  program  handles  internally.  This  is  a  subset  of  the  MS-DOS 
internal  commands:  Change  Directory,  Copy,  Delete,  Directory,  Erase, 
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Make  Directory,  Remove  Directory,  Rename  and  their  abbreviated  -forms. 
I-f  matched,  the  command  is  passed  to  Spawn. Process_Intrinisic_Command 
for  execution  and  collection  of  responses.  If  not,  the  file  type 
returned  by  Resol ve_Command  is  used  as  a  case  selector  to  either  run  an 
executable  file  via  Spawn. Run_Local ,  or  a  syntax  error  indication  is 
returned  to  the  calling  program.  If  executable,  the  command  (program 
name)  is  separated  from  the  following  command  tail  and  passed  to 
Run  Local . 
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APPENDIX  K 

NAINTENANCE  HANUAL  FOR  UNIT  REDIRECT 


A.  UNIT  REDIRECT 

1.  Configuration  Inforaation 

a.  Language  -  Turbo  Pascal  Version  4.0 

b.  Coapiler  Version  -  4.0 

c.  Target  HardMare  -  IBM  PC/AT  or  close  coapatible 

d.  Operating  Systea  -  Microsoft  MS-DOS  (Version  3.x) 

e.  Prograa  Description 

Redirect  is  a  set  of  functions  and  procedures  that 
allow  the  output  of  programs  spawned  under  the  Slave  computer's  copy  of 
the  main  program  Distrib  to  be  redirected  to  files.  Once  the  program 
ends,  the  Slave  computer  can  then  forward  the  output  normally  displayed 
on  the  screerf  to  the  Master  computer  for  display. 

2.  Subroutines  Contained 

a.  Init_Redirect_Unit 

(1)  Type:  Procedure 

(2)  Purpose;  To  reverse  the  Turbo  Pascal 

ini tial ization  of  the  Pascal  standard  files  Input  and  Output  to  the  CRT 
Unit  in  preparation  for  redirection. 

(3)  Description  of  Parameters;  None.  This  procedure 
reassigns  the  Pascal  standard  files  Input  and  Output. 

(4)  Subroutines  Called; 

System. Assign 
System. Reset 
System. Rewrite 

(5)  Process  Description 

The  Turbo  Pascal  Version  4.0  reference  manual 
indicates  that  the  initialization  code  found  in  standard  Unit  CRT 
assigns  the  Pascal  standard  test  files  Input  and  Output  to  the  CRT 
Unit.  In  order  to  accomplish  I/O  redirection,  these  files  must  be 
rereferenced  to  the  standard  input  and  output.  The  above  subroutines 
accomplish  this. 

b.  Duplicate_Handle 

(1)  Type;  Function 

(2)  Purpose:  Returns  a  second  handle  that  refers  to 
the  same  file  (or  device)  as  the  variable  Handle.  Used  to  save  the 
reference  to  standard  I/O  for  later  restoration  after  redirection  ends. 

(3)  Description  of  Parameters:  Handle  is  the  file 

handle  to  be  duplicated.  ErrorNum  is  a  variable  for  an  MS-DOS  error 
code  returned  in  the  AX  register  if  the  MS-DOS  function  call  fails. 
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(4)  Subroutines  Called: 

DOS. Intr ($21) 

(5)  Process  Description 

The  DOS. Intr ($21 >  call  is  to  the  Duplicate_Handle 
■function,  $45.  The  function  returns  another  handle  of  type  word. 

c.  Close_File_Handle 

(1)  Type:  Function 

(2)  Purpose:  Closes  a  file  handle  that  refers  to  a 

file  or  device.  Used  to  terminate  I/O  to  the  standard  input  or  output 
handle  when  redirected,  and  to  dispose  of  the  redirection  handle. 
ErrorNum  is  a  variable  for  an  MS-DOS  error  code  returned  in  the  AX 
register  if  the  MS-DOS  function  call  fails. 

(3)  Description  of  Parameters:  Handle  is  the  file 

handle  to  be  closed. 

(4)  Subroutines  Called: 

DOS. Intr ($21) 

(5)  Process  Description 

The  DOS. Intr ($21)  call  is  to  the  Close_Handle 
function,  $3E.  ErrorNum  is  returned  with  an  MS-DOS  error  code  if  the 
call  fails,  as  indicated  by  a  FALSE  function  result. 

d.  Redirect_Handle 

(1)  Type:  Procedure 

(2)  Purpose;  Forces  a  handle  used  by  the  system  for 

standard  input  or  output  to  be  redirected  to  the  same  file  or  device  as 
another  handle.  The  file  or  device  originally  pointed  to  may  then 

closed.  I/O  to  the  standard  input  or  output  handle  now  appears  at  the 
same  file  or  device  as  the  handle  redirected  to. 

(3)  Description  of  Parameters;  Handle  is  the  file 
handle  pointig  to  the  file  or  device  to  be  redirected  to,  Red_Handle  is 
the  standard  I/O  handle  to  be  redirected. 

(4)  Subroutines  Called; 

DOS. Intr ($21) 

(5)  Process  Description 

The  DOS. Intr ($21 )  call  is  to  the  FDup_Handle 
function,  $46.  ErrorNum  is  returned  with  an  MS-DOS  error  code  if  the 
call  fails.  On  return  the  redirected  standard  I/O  handle  now  operates 
through  the  file  or  device  of  Handle. 

e.  Redirect_Std_Output 

(1)  Type;  Function 

(2)  Purpose;  Redirects  Standard  Output  tc  a  file  of 

oun  choosing. 

(3)  Description  of  Parameters:  StdOut  is  the  MS-DOS 
standard  output  file  handle  to  be  redirected.  Std_Output_Fi 1 e_Temp  is 
the  file  that  output  will  be  redirected  to. 

(4)  Subroutines  Called: 

Redirect.Dupl icate_Handle 

Redi rect . Redi rect  Handle 
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(5)  Process  Description 

The  temporary  output  -file  is  opened,  a  handle 
pointing  to  StdDut  is  saved  and  then  StdOut  is  -forced  to  point  to  our 
output  -file. 

f .  Restore_Std_(Xitput 

(1)  Type:  Function 

(2)  Purpose  Restores  the  saved  standard  Output  to 

its  previous  state,  sets  a  variable  Response_File  to  the  name  o-f  the 
file  holding  the  redirected  output  to  end  redirection. 

(3)  Description  of  Parameters:  StdOut  is  the  MS-DOS 

standard  output  file  handle  that  was  redirected.  Std_Output_File_TBmp 
is  the  file  that  output  was  redirected  to.  Saved_Std_Out  is  the  handle 
that  points  to  the  original  standard  Output. 

(4)  Subroutines  Called: 

Redirect . Cl ose_Fi 1 e_Handl e 

Redirect . Redi rect_Handl e 

(5)  Process  Description 

StdOut,  the  file  handle  for  standard  output  is 
reset  to  point  to  Saved_Std_Out ,  the  temporary  file  Std_Output_Fi le  is 
closed  for  writing,  and  the  variable  Response_Fi le  is  set  to  the  name 
of  the  temporary  file  if  no  errors  are  encountered,  otherwise  NIL. 

g.  Redirect_Std_Input 

(1)  Type:  Function 

(2)  Purpose:  Redirects  standard  Input  to  be  drawn 
from  a  file  of  our  choosing. 

(3)  Description  of  Parameters:  Stdin  is  the  MS-DOS 
standard  input  file  handle  to  be  redirected.  Std_lnput_File_Temp  is 
the  file  that  input  will  be  redirected  from. 

(4)  Subroutines  Called: 

Redi rect . Duplicate_Handle 

Red 1 rect . Redi rect_Handl e 

(5)  Process  Description 

The  temporary  input  file  is  opened  for  reading,  a 
copy  of  the  handle  pointing  to  Stdin  is  saved  and  then  Stdin  is  forced 
to  point  to  our  input  file. 

h.  Restore_Std_Input 

(1)  Type:  Function 

(2)  Purpose:  Restores  the  saved  standard  Input  to  its 
previous  handle,  and  closes  the  input  file  to  end  redirection. 

(3)  Description  of  Parameters:  Stdin  is  the  MS-DOS 

standard  input  file  handle  that  was  redirected.  Std_Input_Fi le_Temp  is 
the  file  that  input  was  redirected  from.  Saved_Std_In  is  the  handle 
that  points  to  the  original  standard  Input. 

(4)  Subroutines  Called; 

Redirect. Close_Fi lB_Handl6 

Redi rect. Redi rect  Handle 
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(5)  Process  Description 

Stdin,  the  -file  handle  tor  standard  input  is  reset 
to  point  to  Saved_Std_In,  the  temporary  file  Std_Input_Fi le  is  closed 
for  reading.  The  function  returns  TRUE  if  no  file  errors  are  detected. 

i.  Redirect_Std_Error 

(1)  Type:  Function 

(2)  Purpose:  Redirects  standard  Error  to  be  sent  to  a 
file  of  our  choosing. 

(3)  Description  of  Parameters:  StdErr  is  the  MS-DOS 
standard  error  file  handle  to  be  redirected.  Std_Error_Fi le_Temp  is 
the  file  that  error  will  be  redirected  to. 

(4)  Subroutines  Called: 

Red i r ec t . Dup 1 i cate_Handl e 

Redirect . Redirect_Handl e 

(5)  Process  Description 

The  temporary  error  file  is  opened  for  writing,  a 
copy  of  the  handle  pointing  to  StdErr  is  saved  and  then  StdErr  is 
forced  to  point  to  our  error  file. 

j .  Restore_Std_Error 

(1)  Type:  Function 

(2)  Purpose;  Restores  the  saved  standard  Error  to  its 
previous  handle,  and  closes  the  error  file  to  end  redirection. 

(3)  Description  of  Parameters:  StdErr  is  the  MS-DOS 
standard  error  file  handle  that  was  redirected.  Std_Error_Fi le_Temp  is 
the  file  that  Error  was  redirected  to.  Saved_Std_Error  is  the  handle 
that  points  to  the  original  standard  Error. 

(4)  Subroutines  Called: 

Redirect . Ci ose^F i 1 e_Hand 1 e 

Redirect. Redirect _Handle 

(S'  'Process  Description 

StdErr  ,  the  file  handle  for  standard  error  is 
reset  tc  pcunt  to  3aved_Std_Error ,  the  temporary  file  Std_Error_Fi le  is 
cicsed  to-'  reading.  The  function  returns  TRUE  if  no  file  errors  are 
detected . 

k.  Redirect_Al l_Output 

Type:  Function 

(2)  Purpose;  Redirects  both  standard  error  and 
standard  output  to  a  file  of  our  choosing. 

(3)  Description  of  Parameters;  StdOut  is  the  MS-DOS 
standard  output  file  handle  to  be  redirected.  Std_Output_Fi le_Temp  is 
the  file  that  output  will  be  redirected  to.  StdErr  is  the  MS-DOS 
standard  errort  file  handle  to  be  redirected.  Std_Error_Fi le_Temp  is 
the  file  that  output  will  be  redirected  to. 

(4)  Subroutines  Called: 

Redirect.Dupl icate_Handle 

Redirect . Redi rect_Handl e 

(5;  Process  Description 

The  temporary  output  file  is  opened,  a  handle 
pointing  tc  StdOut  is  saved  and  then  StdOut  is  forced  to  point  to  our 


109 


output  file.  The  process  is  repeated  for  StdErr,  except  that  it  is 
redirected  to  the  same  output  file. 

l .  Restore_Al 1 _Output 

(1)  Type;  Function 

(2)  Purpose:  Restores  the  saved  standard  output  and 
error  to  their  previous  states,  sets  a  variable  Response_File  to  the 
name  of  the  file  holding  the  redirected  output  to  end  redirection. 

(3)  Description  of  Parameters:  StdOut  is  the  MS-DOS 
standard  output  file  handle  that  was  redirected.  Std_Output_File_Temp 
is  the  file  that  output  was  redirected  to.  Saved_Std_Dut  is  the  handle 
that  points  to  the  original  standard  Output.  StdErr  is  the  MS-DOS 
standard  output  file  handle  that  was  redirected.  Std_Error_Fi le_Temp 
is  the  file  that  output  was  redirected  to.  Saved_Std_Err  is  the  handle 
that  points  to  the  original  standard  Error. 

(4)  Subroutines  Called: 

Red i r ec  t . Cl ose_Fi 1 e_Hand 1 e 
Red i rect . Red i rect_Handl e 
Process  Description 

StdOut,  the  file  handle  for  standard  output  is 
reset  to  point  to  Saved_Std_Out ,  the  temporary  file  Std_Output_Fi le  is 
closed  -for  writing.  StdErr,  the  file  handle  for  standard  error  is 
reset  to  point  to  Saved_Std_Err ,  the  temporary  file  Std_Error_Fi le  is 
closed  for  writing,  and  the  variable  Respor  e_File  is  set  to  the  name 
of  the  temporary  file  if  no  errors  are  encountered,  otherwise  NIL. 

m.  Restore_CRT_Assigniiients 

(1)  Type;  Procedure 

<2)  Purpose;  To  set  the  standard  Input  and  Output 
files  to  tev.'tdr i vers  in  the  CRT  Unit.  Faster  inoput  and  output  is 
obtai ned . 

CJ  Description  of  Parameters;  None.  This  procedure 
reassigns  the  Pascal  standard  files  Input  and  Output  to  CRT. AssignCRT  ( 
Input  )  and  CRT. Assi gnCRT  (  Output  ). 

(4)  Subroutines  Called: 

System. AssignCRT 
System. Reset 
System. Rewrite 

(3)  Process  Description 

The  assignments  restore  the  input  and  output 
standard  files  to  the  CRT  unit. 
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APPENDIX  L 


MAINTENANCE  MANUAL  FOR  UNIT  SPANN 


A.  UNIT  SPAWN 

1.  Ccxff iguration  Infarnation 

a.  Language  -  Turbo  Pascal  Version  4.0 

b.  Conpiler  Version  -  4.0 

c.  Target  Hardware  -  IBM  PC/AT  or  close  coapatible 

d.  Operating  System  -  Microso'ft  MS-DOS  (Version  3.x> 

e.  Program  Description 

This  unit  detects  commands  that  should  be  processed 

internally  by  the  Distrib  program,  and  executes  commands  internally  or 
by  spawning  a  child  process.  Command  output  and  error  responses  are 
returned  to  the  caller  either  as  strings  suitable  -for  conversion  to 
Xmodm  but-fers,  or  by  re-ference  to  -files  containing  the  text.  This  unit 
also  contains  the  redirection  switch  as  a  public  variable  that  dictates 
whether  program  output  will  be  redirected  to  a  file  or  displayed 

locally  on  the  screen.  This  switch  is  normally  set  to  redirect  to 

file. 

2.  Subroutines  Contained 

a.  Match_CoiiMiand 

(1)  Type;  Function 

(2)  Purpose:  To  search  a  command  string  for  a  substring 
that  matches  a  command  to  be  processed  internally  by  the  Slave  program. 

(3)  Description  of  Parameters; 

Input;  Filespec  is  a  command  stripped  of  path 
specif ication,  or  leading  or  trailing  spaces. 

Output;  The  function  returns  TRUE  if  a  match  was 
found,  along  with  an  enumerated  type  matching  the  command,  FALSE 
otherwi se. 

(4)  Subroutines  Called; 

System. Length 

System. Pcs 

'5)  Process  Description 

A  substring  search  is  conducted  using  the  enumerated 
internal  command  type  to  index  an  array  of  strings  containing  the 
command  names.  The  internal  command  must  be  matched  by  exact 
replication  and  must  be  positioned  as  the  first  substring  in  FileSpec. 

b.  Process_Intrinsic_Command 

(1)  Type;  Procedure 
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(2)  Purpose:  This  procedure  executes  an  internal 

command  detected  by  Match_Command.  This  procedure,  and  Run_local, 
execute  commands  for  Spawn. Par ser_Main. 

(3)  Description  of  Parameters: 

Input:  Command,  the  enumerated  type  specifying  the 

internal  command.  Command_tail  are  the  parameters  for  the  internal 
command. 

Output:  Response  and  Error_Msn  are  strings 

containing  either  the  command  output  and  error  messages,  respectively, 
or  filenames  containing  the  information.  Restype  and  Errtype  tell  the 
calling  program  what  Response  and  Error_Msg  contain.  Prompt  is  the 
local  machine  current  directory  for  return  to  the  Master  via  the 
calling  program  after  the  response  is  competed. 

(4)  Subroutines  Called: 

System. ChDir 

System. GetDir 

System. Mkdir 

System. RmDir 

(5)  Process  Description 

The  Command  parameter  is  used  in  a  CASE  construct 
select  commands  that  are  completed  by  Turbo  Pascal  functions  and 
procedures,  and  to  pass  other  internal  commands  to  Run_local  to  spawn  a 
copy  of  the  MS-DOS  command  processor  and  run  the  command.  This 
approach  is  taken  to  greatly  simplify  the  command  parsing  and 
execution,  since  these  requirements  can  be  offloaded  to  the  spawned 
command  processor  for  commands  with  complex  processing  requirements 
such  as  DIR.  Batch_mode  is  set  to  signal  Run_Local  to  spawn  a  copy  of 
the  command  processor  rather  than  attempting  to  execute  the  command  as 
a  program. 


c.  Run_Local 

(1)  Type:  Procedure 

(2)  Purpose:  This  procedure  executes  all  command  that 

nd  detected  by  Match_Command.  This  procedure,  and 

Proces5_Intrisic_Command,  execute  commands  for  Spawn. Par ser_Main. 

(3)  Description  of  Parameters: 

Input:  Program_name,  the  name  of  the  command  or 

file  to  be  executed;  Command_l ine,  the  arguments  for  the  command  or 
file;  and  Batch,  which  signals  that  a  copy  of  the  MS-DOS  command 
processor  is  to  be  used  to  run  the  program  for  batch  files  and  certain 
internal  MS-DOS  commands. 

Output:  Response  and  Error_Msg  are  strings 

containing  either  the  command  output  and  error  messages,  respectively, 
or  filenames  containing  the  information.  Restype  and  Errtype  tell  the 
calling  program  what  Response  and  Error_Msg  contain.  Prompt  is  the 
local  machine  current  directory  for  return  to  the  Master  via  the 
calling  program  after  the  response  is  competed. 

(4)  Subroutines  Called; 

Redirection. Init_Redirection_Unit 

Redi recti  on. Redirect_Al 1 _Output 

Red i r ect i on . Restore_Al 1 _Output 


112 


Redi rect i on . Restore_CRT_Assi gnments 
Support . Fi nd_Envi ronment 
System. ChDir 
System. GetDir 
System. UpCase 
System. Length 
(5'  Process  Description 

CRT.CheckBreak  is  set  to  allow  an  operator  to 
terminate  execution  o-f  a  runaway  program.  H  the  Batch  tlag  is  set, 
the  command  is  adjusted  to  execute  a  copy  o-f  COMMAND.COM  and  the 
original  command  and  arguments  are  moved  to  command  tail. 
Find_Environment  is  used  to  locate  the  explicit  path  speci-fi cation  and 
file  name  for  COMMAND.COM,  as  required  by  the  Exec  procedure.  The 
current  directory  is  saved  to  return  the  program  to  its  working 
directory  after  command  execution.  If  the  Redirection  flag  has  been 
set,  calls  are  made  to  the  Redirection  Unit  to  route  all  subsequent 
program  output  to  files  visible  in  the  Redirection  Unit.  This 
redirection  is  inherited  by  any  programs  spawned  from  this  program  by 
Exec  (Greco,  1987,  p.  25).  Exec  is  then  called  to  spawn  the 
program(s).  On  return,  the  standard  output  handles  are  restored  and 
the  original  working  directory  restored  as  a  precaution. 
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APPENDIX  H 


MAINTENANCE  MANUAL  FOR  UNIT  SUPPORT 


A.  UNIT  SUPPORT 

1.  Conf iguraticx)  In-foraation 

a.  Language  -  Turbo  Pascal  Version  4.0 

b.  Coapiler  Version  -  4.0 

c.  Target  HardMare  **  IBM  PC/AT  or  close  coapatible 

d.  Operating  Systea  '  Microsoft  MS-DOS  (Version  3.x) 

e.  Prograe  Description 

The  Support  Unit  contains  most  of  the  constant 
declarations  for  the  program,  along  with  the  initialization  procedure 
some  general  purpose  proceaures.  From  (Edwards,  1987,  pp.  241  -  272). 

2.  Subroutines  Contained 

a.  Initialize 

(1)  Type:  Procedure 

(2)  Purpose:  This  procedure  sets  the  default 

parameters  for  the  program,  attempts  to  read  the  telephone  number  file 
and  creates  a  file  if  none  exists,  reads  the  user  developed 
configuration  file  to  override  some  defaults,  displays  the  terminal 
screen  and  initializes  the  Wndow  Unit. 

(3)  Description  of  Parameters: 

Input; 

Output ; 

(4>  Subroutines  Called: 

System. UpCase 

System. Length 

(5)  Process  Description 

This  procedure  first  attempts  to  open  a 
configuration  file  under  the  name  found  in  the  constant  structure 
Defaults.  If  this  file  exists,  the  current  configuration  is  read  in  to 
a  similar  structure  called  Current,  otherwise  all  parameters  are  taken 
from  the  constant  structure.  This  is  used  to  set  the  screen  colors, 
identify  the  initial  communications  port  to  use,  and  identify  the  modem 
port.  This  file  may  be  updated  from  the  Master  screen.  From  the 

configuration  selected,  the  environmental  parameters  are  established. 
A  similai'  process  attempts  to  read  the  list  of  telephone  numbers  and 
associated  parameters,  however  the  size  of  this  array  is  not  known  in 
advance.  A  memory  block  is  drawn  from  the  heap  for  each  telephone 
record  read  to  make  the  list.  If  the  file  does  not  exist,  a  dummy 
record  is  established.  This  file  may  also  be  updated  from  the  screen. 
Finally,  the  designated  communications  port  is  initialized.  This  is 


essential  i-f  the  Slave  computer  is  to  recognize  external  commands 
without  operator  intervention. 

b.  Save_File 

(1)  Type:  Procedure 

(2)  Purpose;  To  save  user  modified  configuration  or 
telephone  dialing  list  parameters  in  a  local  file  for  later  use  on 
program  initialization. 

(3)  Description  of  Parameters;  D  is  a  boolean  switch 
that  selects  the  file  to  be  saved. 

(4)  Subroutines  Called: 

Wndow.Open_Window 

CRT.ClrScr” 

Support. Yes 
Support. NoFile 
Support. OK 

Wndow, Close_Window 

(5)  Process  Description 

This  procedure  saves  the  default  environmental 
parameters  as  modified  by  the  user  in  the  file  DISTRIB.CFG;  or  the 
current  list  of  telephone  numbers  and  communications  port  parameters  in 
the  file  DISTRIB.PHN.  Both  files  are  loaded  on  program  initialization 
(if  available)  and  override  the  default  parameters  found  in  the 
constant  data  structures  in  the  unit  Support. 

c.  OK 

(1)  Type:  Procedure 

<2)  Purpose:  To  obtain  an  acknowledgement  from  the 

user , 

(3)  Description  of  Parameters: 

Input:  S,  the  string  to  title  the  prompt  window. 
Output;  The  user  has  responded  if  the  call 

returns. 

(4)  Subroutines  Called; 

Wndow. Open_Window 
Wndow. Process_Window 
Wndow . Cl ose_Wi ndow 

(5)  Process  Description 

This  function  opens  a  window  with  a  "OK"  display 
and  the  query  in  the  window  title  field.  The  operator  then  depresses 
the  ENTER  key  to  acknowledge,  which  is  detected  by  Process_Wi ndow.  The 
widow  is  closed  and  the  procedure  cell  returns. 

d.  Yes 

(1)  Type:  Function 

(2)  Purpose:  To  prompt  the  user  for  a  yes  or  no 

response. 

(3)  Description  of  Parameters; 

Input:  S,  the  string  to  title  the  prompt  window. 
Output:  The  function  returns  true  if  Yes  was 

selected. 
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(4)  Subroutines  Called: 

WndoM. Open_Window 

Wndow. Process_Wi ndow 

Wndow. Cl ose_Wi ndow 

(5)  Process  Description 

This  -function  opens  a  window  with  menu  bar, 
displaying  the  query  in  the  window  title  -field  and  the  selections  "Yes" 
or  "NO"  in  the  window.  The  operator  selects  with  the  menu  bar,  and 
Process_Window  returns  a  value  o-f  two  if  the  selection  was  "Yes."  The 
widow  is  closed  and  the  -function  returns  true  i-f  "Yes"  was  selected. 

e.  NoFile 

(1)  Type:  Procedure 

(2)  Purpose:  To  obtain  an  acknowledgement  from  the 
user  after  failing  to  find  a  file. 

(3)  Description  of  Parameters: 

Input;  S,  the  string  to  title  the  prompt  window. 

Output;  The  user  has  responded  if  the  call 

returns. 

(4)  Subroutines  Called: 

CRT.ClrScr 

Support . OK 

Wndow. Open_Window 

Wndow. Process_Wi ndow 

Wndow. Cl ose_Wi ndow 

(5)  process  Description 

This  function  opens  a  window  to  inform  the 
operator  that  the  desired  file  could  not  be  found,  then  opens  another 
window  with  a  "OK"  display.  The  operator  then  depresses  the  ENTER  key 
to  acknowledge,  which  is  detected  by  the  OK  procedure.  The  widow  is 
closed  and  the  procedure  call  returns. 

f.  Bui ld_Statu5_Line 

(i)  Type:  Procedure 

<1)  Purpose;  To  construct  a  status  line  at  the  bottom 
of  the  video  display. 

(3?  Description  of  Parameters; 

Input;  Nothing. 

Output;  A  status  line  containing  information  on 
the  current  communications  port  is  displayed  at  the  bottom  of  the 
screen. 

(4)  Subroutines  Called; 

System. Insert 

Wndow. Write_Status_Line 

(5)  Process  Description 

The  procedure  starts  with  a  blank  status  line  and 
inserts  substrings  depending  on  the  state  of  variables  declared  in  this 
unit  to  construct  the  status  line.  Write_Status_Line  displays  the  line 
in  the  appropriate  position. 
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g .  Chec k _keyboar d 

(1)  Type:  Function 

(2)  Purpose;  To  return  a  keyboard  character, 

including  special  characters. 

(3)  Description  o-f  Parameters: 

Input;  The  key  is  taken  -from  the  Readkey 
•function.  Output;  The  ■function  returns  the  character 

read,  or  the  keyboard  scan  code  in  the  high  byte  i-f  a  special  character 
is  read  (Readkey  returned  a  zero).  If  no  key  is  available,  the 
function  returns  zero. 

(4)  Subroutines  Called: 

System. KeyPressed 

System. Readkey 

(5)  Process  Description 

The  function  checks  the  Keypressed  function  and  if 
true,  calls  Readkey  to  get  the  character.  If  Readkey  returns  zero,  a 
special  key  has  been  pressed,  and  the  scan  code  is  read  from  Readkey. 
The  character  is  returned,  or  the  scan  code  in  the  high  byte  of  the 
integer  if  appplicable. 

h.  Chec k_Aux port 

(1)  Type;  Function 

(2)  Purpose;  This  function  checks  for  a  character  at 
the  currently  selected  communications  port  and  returns  a.  result. 

(3)  Description  of  Parameters; 

Input;  Nothing. 

Output;  NUL  if  no  character  is  ready,  or  the 
characte''  if  one  was  read. 

f4)  Subroutines  Called; 

DataCom . RS232_Avai 1 

Dat  aCom . RS232_ I n 

(5)  Process  Description 

RES232_Avaii  returns  true  if  a  character  is 
available  in  the  receive  buffer  of  the  currently  selected 
communications  port.  If  true,  the  character  is  read  through  RS232_In, 
and  passeo  to  the  L5T  device  and  Ascii_file  if  public  variables  are 
set.  The  character  is  returned,  or  NUL  if  no  character  was  available. 

i .  Fi nd_Envi ronment 

(1)  Type:  Function 

(2)  Purpose:  To  return  a  specified  string  from  the 

operating  system  environment.  This  function  typically  is  called  to 
■find  the  COMSPEC=<path  specification::-  string  to  locate  a  copy  of  the 
MS-DOS  command  processor.  With  this  path  information,  a  second  copy  of 
the  command  processor  can  be  spawned  to  run  programs  from  this  one. 

(3)  Description  of  Parameters: 

Input:  What  is  the  parameter  to  be  searched  for. 

The  environment  contains  strings  of  the  form  What=<text>. 

Output;  If  found,  the  -(text?  part  of  the 
environment  string;  if  not,  a  NUL  string. 


117 


(4)  Subroutines  Called: 

System. MemW 
System. Ptr 
System. Copy 
System. Length 

(5)  Process  Description 

To  run  a  batch  file,  a  second  copy  of  the  MS-DOS 

command  processor  is  spawned  as  a  child  process,  with  the  batch  file  as 

a  command  tail.  The  secondary  processor  executes  the  batch  file  and 
terminates.  A  copy  of  the  command  processor  must  first  be  located 
without  previous  knowledge.  MS-DOS  normally  places  a  string  citing  the 
path  to  the  COMMAND.COM  on  system  initialization  in  an  area  of  memory 
called  the  environment,  along  with  other  information  from  the 
AUTOEXEC.BAT  file  such  as  PATH  information.  A  segment  pointer  to  this 
MS-DOS  environment  is  placed  in  any  program  spawned  from  the  original 
command  processor! n  the  child  Program  Segment  Prefix,  at  offset  $002C. 
The  environment  starts  on  a  segment  boundary,  so  the  offsed  is 
automatically  $0.  This  environment  is  the  same  one  manipulated  by  the 
SET  command  from  MS-DOS,  and  normally  contains  a  string  of  the  form 
C0MSPEC=D: \directory\directory\command. com.  To  search  the  environment 
for  the  requested  string,  a  pointer  (Environ)  is  typed  for  the  maximum 
size  of  the  environment,  32K  bytes  and  initialized  from  the  segment 
value  at  offset  f002C.  Each  string  in  the  environment  is  terminated  by 

a  NUL  character  (ASCIIZ).  The  environment  area  itself  is  terminated  by 

an  extra  NUL.  The  environment  area  is  searched,  string  by  string  by 
copying  the  strings  into  a  local  variable  string,  S.  Each  of  these 

strings  is  examined  for  the  search  string  What.  If  found,  the 
remainder  of  the  string  is  returned,  otherwise  a  NUL  string.  This 
function  is  duplicated  in  Unit  Support  to  prevent  circular  unit 
dependencies.  (Edwards,  1987,  p.  250). 

j .  Update_Status 

(1)  Type:  Procedure 

(2)  Purpose:  To  display  or  refresh  the  current  status 
of  the  calling  program  in  a  monitor  window. 

(3)  Description  of  Parameters: 

Input:  Typically  this  procedure  writes  current 

information  contained  in  a  data  structure  by  writing  formatted  strings 
to  an  open  window,  and  then  displaying  the  contents  of  the  data  as  a 
string,  or  by  mapping  an  enumerated  data  type  to  an  array  of  constant 
strings  to  display  the  value. 

Output:  A  window  display  of  the  current  status. 

(4)  Subroutines  Called: 

Wndow. Get_Window 

CRT.ClrEOL 

CRT.GoToXY 

(5)  Process  Description 

This  procedure  is  local  to  Modif y_Entry.  The 
process  depends  on  the  caller  to  open  a  properly  sized  window  and  to 
set  a  variable  celled  Status_ID  to  allow  the  status  window  to  be 
accessed  via  Get_W’.ndow.  Once  reopened,  the  procedure  writes  the 


118 


current  status  in-formation. The  procedure  then  resets  the  working  window 
to  that  o-f  the  caller's  Monitor_ID. 

k.  Modi'fy_Entry 

(1)  Type:  Procedure 

(2)  Purpose:  to  display  the  current  list  o-f  telephone 
numbers  that  may  be  dialed  automatically,  or  the  current  program 
con-figuration  parameters. 

(3)  Description  o-f  Parameters: 

Input:  I,  a  selector.  If  I  >  0  the  phone  list  is 

to  be  modified,  if  I  =0  then  the  configuration  parameters  are 
modified. 

Output:  The  user  is  offered  the  opportunity  to 

save  the  modifications  to  a  file. 

(4)  Subroutines  Called: 

Update_Status  (local) 

CRT.ClrScr 

CRT.SoToXY 

System. UpCase 
System. Length 
Wndow. Open_Window 
Wndow. Process_Wi ndow 
Wndow. Close_Window 

(5)  Process  Description 

Depending  on  I,  the  procedure  opens  a  window  of 
the  correct  size,  and  then  displays  the  current  parameters  by  mapping 
their  values  through  arrays  of  constant  strings  to  display  readable 
values.  The  procedure  then  enters  a  loop  for  operator  entry  of 
paramete'-s  to  be  modified.  The  user  then  positions  a  menu  bar  over  the 
appropriate  selection  and  presses  ENTER.  Depending  on  the  selection, 
the  procedure  prompts  the  operator  for  an  input  string,  or  displays 
another  parameter! zed  window  and  calls  Process_Window  to  obtain  the 
current  selection.  When  ESC  is  pressed,  the  loop  ends  and  the  recorded 
modi f ications  may  be  safec  to  a  configuration  or  phone  list  file  by 
Save_File.  All  windows  are  closed  and  the  procedure  returns. 
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APPENDIX  N 


MAINTENANCE  MAMJM.  FOR  UNIT  HNDOW 


A.  UNIT  HNDOW 

1.  Conf iguraticxi  Inforaation 

a.  Language  -  Turbo  Pascal  Version  4.0 

b.  Coopiler  Version  -  4.0 

c.  Target  Hardware  -  IBM  PC/AT  or  close  coapatible 

d.  Operating  System  -  Microsoft  MS-DOS  (Version  3.x) 

e.  Program  Description 

This  unit  provides  all  window  creation,  memory 
allocation,  display,  menu  bar  processing,  closure  and  memory 
deallocation  functions  for  the  program  Distrib.  The  unit  was  changed 
from  an  include  file  to  a  unit,  but  not  otherwise  changed  from  that 
originally  developed  by  the  author  in  (Edwards,  1987,  pp.  50-98).  The 
purpose  descriptions  are  from  the  author. 

2.  Subroutines  Contained 

a.  Set Col or 

(1)  Type;  Procedure 

(2)  Purpose;  Set  the  ESA  foreground  color  for  text 

di splay. 

(3)  Description  of  Parameters: 

Input;  Color,  the  code  to  set  the  color  to. 
Output;  All  future  text  will  be  displayed  in  the 

color  selected. 

(4)  Subroutines  Called: 

CRT.TextColor 

(5)  Process  Description 

The  color  selected  is  stored  in  the  variable 
Foreground,  and  a  call  is  made  to  TextColor  to  set  the  screen 
foreground  color  in  accordance  with  the  ESA  monitor  standards. 

b.  SetBackSround 

(1)  Type:  Procedure 

(2)  Purpose:  Set  the  EGA  background  color  for  text 

display. 

(3)  Description  of  Parameters: 

Input;  Color,  the  code  to  set  the  color  to. 
Output;  All  future  text  will  be  displayed  on  a 
background  of  the  color  selected. 

(4)  Subroutines  Called; 

CRT. TextBackGround 
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(5)  Process  Description 

The  color  selected  is  stored  in  the  variable 
Background,  and  a  call  is  made  to  TextBackGround  to  set  the  screen 
background  color  in  accordance  with  the  EGA  monitor  standards. 

c.  6et_Du««y_Screen 

(1)  Type:  Procedure 

(2)  Purpose:  Force  the  Screen  variable  to  point  to  a 
dummy  area  on  the  heap. 

(3)  Description  of  Parameters; 

Input;  Screen,  Screen_New  (Public  variables  in 

this  unit. 

Output:  Screen  and  Screen_New 

(4)  Subroutines  Called:  None. 

(5)  Process  Description 

Screen  is  initialized  to  point  to  the  the  start  of 
the  display  area  for  the  color  or  monochrome  monitor  in 
Ini t_Wi ndow_Inf o.  This  procedure  saves  this  pointer  in  Screen_New  and 
then  fills  Screen  with  the  same  information. 

d.  Get_Real _Screen 

(1)  Type:  Procedure 

(2)  Purpose:  To  undo  the  work  of  Bet_Dummy_Screen 

(3)  Description  of  Parameters; 

Input:  Screen,  Screen_New  (Public  variables  in 

this  unit. 

Output:  Screen  and  Screen_New 

(4)  Subroutines  Called;  None. 

(5)  Process  Description 

Screen  is  initialized  to  point  to  the  the  start  of 
the  display  area  for  the  color  or  monochrome  monitor  in 
Ini t_Wi ndow_Inf o.  6et_Dummy_Screen  redirects  the  pointer  Screen  to  a 
dummy  area  on  the  heap.  This  procedure  restores  Screen  to  its  original 
setting. 

e.  Build_Borders 

(1)  Type:  Procedure 

(2)  Purpose;  Build  a  border  of  single  or  double  lines 

around  a  window. 

(3)  Description  of  Parameters; 

Input;  Lines,  specifying  a  single  or  double 
border.  Acti ve_WindDw,  a  public  pointer  in  this  unit  to  a  window 
control  block  containing  information  about  the  size  and  current 
position  of  the  window  to  be  bordered. 

Output;  The  output  is  a  border  written  to  the 
display  to  outline  the  window. 

(4)  Subroutines  Called: 

General .Fill  Word 
System. Length 
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(5)  Process  Description 

This  procedure  determines  the  window  limits 
contained  in  the  window  control  block  pointed  to  by  Active_Window,  and 
places  standard  symbols  in  screen  memory  to  outline  the  window. 

f.  Open_Nindow 

(1)  Type;  Function 

(2)  Purpose:  Open  a  window  on  the  screen  and  draw  a 

border  around  it.  (3) 

Description  of  Parameters; 

Input:  XI,  Yl,  X2,  Y2  are  the  window  coordinates; 

Flag  is  a  bit  mask  of  allowed  functions  for  this  window  (borders,  GOTO 
allowed  within  the  window,  relocatable  and  can  be  closed  from  the  main 
program, •  Name  is  the  window  title  to  be  displayed. 

Output:  0  -  window  opened  successfully;  1  - 

Invalid  window  coordinates;  2  -  not  enough  memory  (failure). 

(4)  Subroutines  Called: 

System. GetMem 
System. MemAvai 1 
System. Move 
Wndow. Bui ld_Borders 

(5)  Process  Description 

After  checking  the  input  parameters  for  valid 
coordinates  and  sufficient  memory,  the  memory  required  to  save  the 
portion  of  the  screen  displayed  by  the  window  is  allocated  from  the 
heap  and  the  window  is  drawn  with  the  appropriate  colors  and  borders. 
Acti ve_Window  is  advanced  to  this  new  window  after  adding  it  to  the 
linked  list  of  open  windows. 

g.  Close_Window 

(1)  Type:  Function 

(2>  Purpose:  To  close  the  window  pointed  to  by 

Acti ve_Window. 

(3'  Description  of  Parameters; 

Input;  Acti ve_Window  is  a  public  pointer  managed 

by  this  unit,  and  refers  to  the  currently  open  window. 

Output;  The  window  is  closed,  and  Active_Window 
is  redirected  to  the  previous  window  in  the  linked  list  of  open 
windows.  The  function  returns  FALSE  if  successful,  TRUE  if  an  attempt 
was  made  to  close  a  window  with  Active_Window''=NIL  (no  more  windows 
open) . 

(4)  Subroutines  Called; 

System. FreeMem 
System. Move 
Wndow. Bui  1 d_Border5 
Wndow. SetBackground 
Wndow. SetColor 

(5;  Process  Description 

After  checking  the  input  parameters  for  valid 
coordinates  and  sufficient  memory,  the  memory  required  to  save  the 
portion  of  the  screen  displayed  by  the  window  is  allocated  from  the 
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heap  and  the  window  is  drawn  with  the  appropriate  colors  and  borders. 
Acti ve_Window  is  advanced  to  this  new  window  atter  adding  it  to  the 
linked  list  of  open  windows. 

h.  Save_WindoM 

(1)  Type:  Function 

(2)  Purpose:  This  function  saves  the  image  of  the 

current  window,  closes  it,  and  returns  a  pointer  to  the  saved  window  in 
memory. 

(3)  Description  of  Parameters: 

Input:  Active_Window  is  a  public  pointer  managed 

by  this  unit,  and  refers  to  the  currently  open  window. 

Output:  A  pointer  to  the  saved  window. 

(4)  Subroutines  Called: 

Wndow. Open_Window 

Wndow. Close_Window 

(5)  Process  Description 

W,  a  local  variable  is  pointed  to  the  same 
window_block  as  the  current  Acti ve_Window.  The  procedure  then  opens  a 
window  with  parameters  identical  to  the  current  window  by  using  the 
local  pointer  W  to  dereference  the  current  window  parameters.  The  act 
of  opening  a  window  of  the  same  size  and  parameters  has  the  effect  of 
saving  the  original  window.  Active_Window  now  points  to  the  new 
window.  If  the  call  to  Open_Window  fails,  a  NIL  pointer  is  returned 
from  Save_Window  and  the  function  exits.  Otherwise,  parameters  from 
the  saved  window  are  transferred  to  the  Acti ve_Window  block,  W  is 

redirected  to  the  newly  updated  current  window,  Acti ve_Window  is 
retracted  to  the  saved  window  and  the  window  that  overlaid  it  is 

closed.  The  function  returns  the  pointer  to  the  saved  block. 

i.  Restore_Window 

(1)  Type;  Procedure 

<2)  Purpose; 

(3)  Description  of  Parameters; 

Input:  A  pointer  to  a  saved  window. 

Output:  TRUE  if  the  function  was  unable  to 

restore  the  window. 

(4)  Subroutines  Called: 

Wndow. Open_Window 

Wndow. SetBackSround 

Wndow. SetCol or 

•■5)  Process  Description 

The  function  first  uses  the  window  pointer  to  set 
the  video  display  colors.  Then,  an  attempt  is  made  to  open  a  window  of 
the  same  size  as  the  saved  window.  If  this  fails,  the  function  returns 
true.  Otherwise,  the  Acti ve_Window  parameters  are  set  to  the  saved 
window,  the  saved  window  is  added  to  the  window  control  block  chain, 
and  Acti ve_Window  is  reset  to  point  to  the  restored  window. 

J.  6et_Window 

(1)  Type;  Function 
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screen. 


(2)  Purpose; 


To  bring  a  window  to  the  top  o-f  the 


surfaced. 


(3)  Description  of  Parameters: 


Input: 

Which, 

the 

ID  of  the  window  to 

be 

Output: 

False  if 

the 

operation  succeeds,  True 

if 

the  ID  did  not  exist. 

(4)  Subroutines  Called: 

Wndow. 6et_Dummy_Screen 

Wndow_Restore_Wi ndow 

(5)  Process  Description 

Bet_Window  follows  the  backlinks  from 
Acti ve_Window  back  until  the  ID  of  Which  is  found  or  the  links  end  at  a 
NIL.  If  found,  Move_Window  is  used  to  copy  the  desired  window  into  a 
heap  area  obtained  by  6et_Dummy_Screen.  The  window  is  then  placed  on 
the  screen  by  Restore_Window. 


and  Y. 


window. 


k.  nove_Window 

(1)  Type;  Function 

(2)  Purpose;  To  move  a  current  window  by  a  relative  X 

(3)  Description  of  Parameters: 

Input:  X,  Y  the  direction  and  amount  to  move  the 


Output:  False  if  the  operation  succeeds,  True  if 

the  coordinates  are  invalid. 

(4)  Subroutines  Called; 

CRT. Window 

Wndow. Exchange 
(51  Process  Description 

Move_Window  checks  the  values  of  X  and  Y  and  then 
copies  the  window  incrementally  in  the  desired  di recti  on (s) .  The  built 
ir  procedure  Window  is  then  used  to  enable  the  new  window  location  for 
di  spl ay. 


1.  Write_Status 

(11  Type:  Procedure 

(2)  Purpose:  To  display  a  string  on  the  25th  video 
display  line  with  a  video  attribute. 

(3)  Description  of  Parameters: 

Input:  S,  the  status  string;  Attrib,  the  display 

attr i but  e. 

Output;  The  string  is  written  to  the  display. 

(4)  Subroutines  Called: 

System. Length 

(5)  Process  Description 

The  procedure  first  concatenates  the  attribute 
byte  with  the  display  character  and  then  writes  the  combination  to  the 
screen  as  a  word,  using  the  Screen  pointer. 
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•.  Process_WindoM_Henu 

(1)  Type:  Procedure 

(2)  Purpose:  to  display  and  process  a  menu  in  the 

current  window. 

(3)  Description  of  Parameters: 

Input:  Menu  is  a  constant  that  must  consist  of  an 
integer,  followed  by  an  array  of  string  constants  of  length  Menu. 

Output:  The  function  returns  a  byte  reflecting 
the  index  of  the  i 'th  string  in  the  constant  array.  A  zero  is  returned 
if  ESC  is  pressed. 

(4)  Subroutines  Called: 

Set_Highl ights  (local) 

GoDown  (local) 

GoHome  (local) 

GoEnd  (local) 

GoUp  (local) 

CRT.GoToXY 
CRT. TextBackground 
CRT. TextColor 
Support. Max 
Support. Min 
System. Length 
Wndow . Bui  1 d_Bor der s 

(5)  Process  Description 

This  function  relies  on  a  side  effect  of  the  data 
structure,  and  assumes  that  the  array  of  strings  representing  the 
selections  to  be  displayed  in  the  window  immediately  follow  Menu.  By 
obtaining  a  memory  address  for  Menu,  the  function  opens  a  window  of  the 
proper  size  and  then  uses  this  implementation  specific  information  to 
display  the  strings.  The  function  then  offers  the  operator  the  menu 
bar  novem.ent  options  on  the  status  line  to  make  a  selection. 
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APPENDIX  D 


MAINTENANCE  fWAJAL  FDR  UNIT  XMODM 


A.  UNIT  XMODM 

1.  Con-figuration  In-foraation 

a.  Language  -  Turbo  Pascal  Version  4.0 

b.  Coepiler  Version  -  4.0 

c.  Target  HardMare  -  IBM  PC/AT  or  close  coapatible 

d.  Operating  Systee  -  Microsoft  MS-DOS  (Version  3.x) 

e.  Program  Description 

This  unit  handles  all  requests  -for  Xmodem  protocol 
packet  and  file  transmission  and  reception. 

2.  Subroutines  Contained 

a.  String_to_Buf 

(1)  Type;  Procedure 

(2)  Purpose:  Convert  a  string  of  length  128  to  an 
Xmodem  buffer  of  the  same  length. 

(3)  Description  of  Parameters: 

Input:  S,  a  128  character  string. 

Output:  buf,  an  Xmodem  buffer.  Short  strings  are 
padded  with  NUL  characters. 

(4)  Subroutines  Called; 

System. Length 

(5)  Process  Description 

The  string  is  treated  as  an  array  of  characters, 
and  each  is  read  into  the  same  position  in  the  buffer. 

b.  Buf_to_String 

(1)  Type:  Function 

(2)  Purpose:  Convert  a  128  character  buffer  into  a 
string  of  the  same  length.  Nonprinting  characters  are  replaced  with 
spaces. 

(3)  Description  of  Parameters; 

Input;  buf,  the  128  character  buffer  of 

characters. 

Output;  s,  a  128  character  string. 

(4)  Subroutines  Called:  None. 

(5)  Process  Description 

The  string  is  treated  as  an  array  of  characters, 
and  each  character  in  the  buffer,  another  array  of  compatible  type  is 
read  into  the  string.  Spaces  are  substituted  for  nonprinting 

characters. 
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c.  ReadAux 

(1'  Type:  Function 

(2)  Purpose:  Returns  a  character  -from  the  currently 

selected  communications  port,  and  also  writes  the  character  to  the 
monitor  -file  and  monitor  window  it  selected.  Provides  a  timeout 
function  and  a  keypressed  abort. 

(3)  Description  ot  Parameters: 

Input:  Seconds,  the  number  ot  seconds  to  wait  tor 
a  character  before  returning  with  a  timeout  indication. 

Output:  A  word  with  the  received  character  in  the 
low  order  byte,  value  256  (timeout)  otherwise. 

<4)  Subroutines  Called: 

CRT. Del  ay 

CRT. Keypressed 

CRT. TextColor 

CRT. BackSround 

DataCom. RS232_Avai 1 

System. DEC 

(5)  Process  Description 

A  factor  is  multiplied  by  the  number  ot  seconds  to 
wait,  and  then  used  in  a  fast  loop  to  test  tor  a  received  character  or 
operator  keypress.  Either  event  breaks  the  loop.  It  a  character  is 
available,  the  function  returns  the  character.  It  Monitor_ID  is 
greater  than  zero,  a  monitor  window  is  open  and  the  character  is 

written  to  the  cursor  position  there  and  to  a  monitor  tile.  Otherwise, 
a  timeout  indicator  is  returned. 

d.  WriteAux 

fl)  Type:  Procedure 

(2)  Purpose:  Sends  a  character  to  the  currently 

selected  communications  port,  and  also  writes  the  character  to  the 
monitor  tile  and  monitor  window  it  selected. 

(3)  Description  ot  Parameters: 

Input;  Ch,  the  character  to  be  sent. 

Output:  The  character  is  sent  and  displayed  it 

the  Monitcr_ID  switch  is  greater  than  0. 

(4)  Subroutines  Called: 

CRT.  Te>;tColor 

CRT. BackGround 

DataCom. RS232_0ut 

(5)  process  Description 

The  character  is  sent  out  the  communications  port 
by  RS232_0ut.  It  Monitor_ID  is  greater  than  zero,  a  monitor  window  is 
open  and  the  character  is  written  to  the  cursor  position  there  and  to  a 
monitor  tile. 

e.  Send_String 

(1)  Type:  Procedure 

(2;  Purpose;  To  send  a  string  out  the  currently- 
selected  communications  port. 
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(3) 

Description  of  Parameters: 

Input:  5,  a  string. 

Output;  The  string  is  sent  to  the  port. 

(4) 

Subroutines  Called: 

DataCom. RS232_0ut 

System. Length 

(5) 

Process  Description 

The  string  is  passed,  character  by  character. 

to 

the  communications 

port. 

f.  Recei ve_Record 

(1) 

Type;  Function 

(2) 

Purpose:  Receive  an  Xmodem  packet 

from 

the 

currently  selected 
command  transfers. 

communications  port.  A  building  block  for 

file 

and 

(3) 

Description  of  Parameters; 

Input:  Buf,  the  data  portion  of  the  packet; 

Blocksize,  the  size  o-f  the  data  buffer;  seconds,  the  number  of  seconds 
to  wait  before  timing  out  on  reception;  and  eKpected_block,  the  ordinal 
number  of  the  next  block  expected  from  the  sender. 

Output:  Buf  is  filled  with  the  data  packet 

contents  if  successfully  received;  errors  indicates  the  number  of 
errors  encountered  in  receiving  the  packet. 

(4)  Subroutines  Called: 

X mod m. Read Aux 

Xmodm.WriteAux 

(5)  Process  Description 

Recei ve_Record  first  listens  for  the  SOH  character 
signalling  the  start  of  an  Xmodm  packet  from  the  port  via  ReadAux , 
passing  the  numbert  of  seconds  to  wait  on  the  call.  The  function  exits 
immediately  with  an  appropriate  status  code  if  a  CAN,  EOT  or  unexpected 
character  is  received.  IF  SOH  is  received,  the  function  then  assembles 
the  Xmodem  header,  calculates  a  running  checksum  on  the  incoming  data, 
and  detects  the  checksum  character.  It  then  checks  the  packet  for 
match  between  the  block  number  and  its  inverse  (packet  locations  two 
and  three,  respectively),  an  incorrect  block  number  compared  to  the 
input  expected_biock ,  and  a  different  checksum  from  that  received  and 
provides  the  appropriate  status  on  return  for  each.  If  the  packet  was 
received  correctly,  an  ACK  is  sent  to  the  transmitter.  If  not,  a  NAK 
i s  sent . 

g.  6et_Buffer 

(1)  Type:  Procedure 

(2'  Purpose;  Reads  a  buffer  of  size  blocksize  from  a 
previously  opened  file.  Pads  the  buffer  with  NUL  characters  if  smaller 
than  requested. 

(3)  Description  of  Parameters; 

Input:  Buf,  the  buffer  to  fill;  blocksize,  the 
size  of  the  buffer  in  bytes;  XferFile  is  a  private  file  variable  in 
this  unit. 
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Output!  Bu-f  contains  the  next  -file  bu-f-fer. 

(4)  Subroutines  Called: 

System. BlockRead 

(5)  Process  Description 

The  low  level  file  read  procedure  BlockRead  is 
used  to  read  an  untyped  buffer.  The  procedure  reports  the  number  of 
bytes  read.  If  less  than  the  buffer  size,  the  remaining  bytes  are 
filled  with  NULL  characters. 

h.  Send_Record 

(1)  Type;  Function 

(2)  Purpose:  Send  an  Xmodem  packet  out  the  currently 
selected  communications  port.  A  building  block  for  file  and  command 
transfers. 

(3)  Description  of  Parameters: 

Input:  Buf,  the  data  portion  of  the  packet; 
Blocksize,  the  size  of  the  data  buffer;  seconds,  the  number  of  seconds 
to  wait  before  timing  out  on  acknowledgement;  Block,  the  ordinal  number 
of  this  packet;  and  errors,  a  count  of  the  number  of  errors  on  the 
attempt  to  return  to  the  calling  program. 

Output:  Buf  is  unchanged  and  is  a  VAR  parameter 

for  efficiency;  errors  indicates  the  number  of  tries  to  send  the 
packet. 

(4)  Subroutines  Called: 

DataCom. Purgel i ne 

Xmodm. ReadAux 

Xmodm. WriteAux 

(5)  Process  Description 

Send_Record  first  calculates  a  checksum  value  for 
the  data  in  the  buffer  and  then  sends  the  SOH  character  signalling  the 
start  of  an  Xmodm  packet  to  the  port  via  WriteAux,  followed  by  the 
block  number  and  its  inverse,  the  data  and  the  calculated  checksum 
value.  PurgeLine  is  called  to  clear  the  receive  buffer  to  prevent  an 
erroneous  interpretation  of  an  earlier  character  received.  ReadAux  is 
then  called  to  listen  for  the  receiver's  acknowledgement.  Status  is 
set  accordingly.  Finally,  the  keypressed  function  is  checked  to  an 
operator  interrupt  and  status  is  updated.  Status  is  returned  as  the 
function  result. 

i.  Sync_Receive 

(1)  Type:  Function 

(2)  Purpose:  Used  to  synchronize  to  receive  Xmodem 

packets. 

(3)  Description  of  Parameters: 

Input;  Seconds,  the  number  of  seconds  to  wait 
between  sending  sync  characters  (NAK  for  Xmodem);  and  sync_character , 
the  sync  character  to  send. 

Output:  A  status  code  indicating  synchronization, 
timeout  or  operator  keypress. 

(4)  Subroutines  Called: 

CRT.KeyPressed 
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DataCom.PurgeLine 

OataCoin.  RS232_Avai  1 

Xmodm. WriteAux 

(5)  Process  Description 

Sync_Recieve  calculates  the  number  o-f  ten  second 
intervals  in  seconds  is  calculated.  The  receive  line  is  cleared  and 

the  sync  character  is  sent.  The  function  then  loops  waiting  for  a 
character  to  be  received  or  the  operator  to  press  a  key  for  the  time 
indicated  by  seconds,  sending  a  new  sync  character  every  five  seconds. 
The  function  does  not  check  the  received  character,  only  whether  or  not 
one  was  received  in  the  allotted  time.  A  status  code  is  returned  as 
the  function  result  (packet  acknowledged,  negative  acknowledge, 
receiver  requests  to  cancel  the  transaction,  timeout  or  operator 
keypress) . 

j .  Sync_Send 

(1)  Type:  Function 

(2)  Purpose:  Used  to  synchronize  to  send  Xmodem 

packets. 

(3)  Description  of  Parameters: 

Input;  Seconds,  the  number  of  seconds  to  wait 
between  sending  sync  characters  (NAK  for  Xmodem). 

Output:  A  status  code  indicating  synchronization, 
timeout  or  operator  keypress. 

(4)  Subroutines  Called: 

CRT. KeyPressed 

DataCom.PurgeLine 

Xmodm. ReadAux 

(5)  Process  Description 

Sync_Send  clears  the  receive  line  with  PurgeLine 
and  then  calls  ReadAux  to  detect  a  received  character.  A  status  code 
is  returned  as  the  function  result  (sync  character  received,  checksum 
sync  received,  receiver  timed  out  or  a  keypress  was  detected). 

k.  Send_EOT 

(1)  Type:  Procedure 

(2)  Purpose:  To  signal  the  end  of  a  data  transfer  for 
the  Xmodem  protocol. 

(3)  Description  of  Parameters: 

Input:  Status,  to  be  changed  to  reflect  the 
outcome  of  the  call;  and  Suppres5_E0T,  a  flag  set  to  suppress  the 
normal  EOT  on  an  Xmodem  data  transfer.  Used  to  concatenate  file 
transfers. 

Output:  Status,  reflecting  transmission 

completed,  or  a  timeout  error  (or  too  many  errors). 

(4)  Subroutines  Called: 

Xmodm. ReadAux 

Xmodm. WriteAux 

(5)  Process  Description 

Suppress_EOT  is  first  checked  to  see  it  the  EOT 
will  be  sent.  If  TRUE,  the  EOT  is  not  sent  and  the  procedure  returns  a 
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completion  status.  This  allows  successive  Xmodem  trans-fers  without 
encountering  the  normal  -flow  control  reversal.  Otherwise,  EOT 
characters  are  sent  every  ten  seconds  until  acknowledged  or  the 
accumulated  errors  exceed  RetryMax,  a  constant  private  to  the  Xmodm 
Unit.  A  timeout  status  is  returned  if  errors  were  exceeded,  a 
transmission  complete  status  i-f  EOT  was  properly  acknowledged. 

1 .  Send.CAN 

(1)  Type:  Procedure 

(2)  Purpose:  Used  to  inform  the  other  side  of  the 
communications  link  that  the  Xmodem  operation  is  to  be  aborted. 

(3)  Description  of  Parameters: 

Input:  None. 

Output:  Two  CAN  characters  are  sent  out  the 

communications  port. 

<4)  Subroutines  Called: 

Xmodm . Wr i teAux 

(5)  Process  Description 

Two  CAN  characters  are  sent  out  the  communications 

port. 

■I.  L^date_Status 

(1)  Type;  Procedure 

(2)  Purpose;  To  display  or  refresh  the  current  status 
of  the  calling  program  in  a  monitor  window. 

(3)  Description  of  Parameters; 

Input;  Typically  this  procedure  writes  current 
information  on  the  status  of  a  data  transfer,  the  number  of  bytes  and 
blocks  sent  or  received,  and  the  count  of  the  number  of  errors 
accumulated  on  the  transaction  in  a  formatted  display. 

Output:  A  window  display  of  the  current  status. 

(4)  Subroutines  Called: 

Wndow. 6et_Window 

CRT.GoToXV 

(5)  Process  Description 

This  process  is  used  several  places  in  this  unit, 
and  operates  identically  in  each.  The  process  depends  on  the  caller  to 
open  a  properly  sized  window  and  to  set  a  variable  called  Status_ID  to 
allow  the  status  window  to  be  accessed  via  Get_Window.  Once  reopened, 
the  procedure  writes  the  current  status  information  using  variables 
local  to  the  caller.  The  procedure  then  resets  the  working  window  to 
that  of  the  caller's  Monitor_ID. 

n.  Xinodem_Xfer 

(1)  Type:  Function 

(2)  Purpose:  Perform  an  Xmodem  file  transfer. 

(3)  Description  of  Parameters: 

Input:  Send,  TRUE  to  send  a  file,  FALSE  to 
receive;  and  Blocksize,  the  size  of  the  data  buffer  to  use. 

Output:  A  status  code  indicating  success  or  what 

problem  was  encountered. 
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(4)  Subroutines  Called: 

Update. Status  (local  to  this  -function) 

CRT.ClrScr 
CRT. Del  ay 
CRT.GoToXY 
CRT.KeyPressed 
CRT.ReadKey 
DataCom.RS_Eight_Bi ts 
General .Beep 
System. B1 ockWr i te 
System. Assign 
System. Reset 
System. Rewrite 
Xmodm. Sync_Send 
Xmodm .  Get  _Buf -f  er 
Xmodm. Send_Record 
Xmodm. Sync_Recei ve 
Xmodm. Ur iteAux 
Undow. Cl ose_Wi ndow 
Undow. Open_Wi ndow 

(S'  Process  Description 

The  public  variable  Monitor_Transfers  is  checked 
to  see  if  a  monitor  window  is  to  be  opened  to  display  the  characters 
transfered.  If  TRUE,  the  window  and  a  monitor  file  are  opened.  The 
status  window  is  then  opened  and  unchanging  field  names  written. 
RS_Eight_Bits  is  called  to  insure  the  communications  port  passes  eight 
bit  data,  regardless  of  its  settings.  After  initializing  the  variables 
used  to  report  status,  the  function  branches  depending  on  whether  a 
file  is  to  be  sent  or  received.  If  Send  is  TRUE,  Sync_Send  is  called 

to  detect  sync  characters  from  the  receiver.  If  Sync_Send  times  out, 

the  transfer  is  aborted  and  the  timeout  is  reported  to  the  caller.  IF 
sync  is  detected,  file  buffers  are  obtained  from  Get_Buffer  and  sent 

via  Send_Record  until  EOF  is  detected  or  too  many  errors  are 

encountered.  If  successful,  EOT  is  sent  to  the  receiver  to  signal  the 
end  of  transmission.  The  KeyPressed  function  is  monitored  at  several 
points,  and  will  cause  an  immediate  abort  with  status  returned  to  the 
caller.  If  Send  is  FALSE,  Sync_Receive  is  called  to  send  sync 
characte'"5.  If  a  timeout  is  not  encountered,  Recei ve_Record  is  called 
repeatedly  to  obtain  received  buffers  and  monitor  status.  The  transfer 
terminates  on  receipt  of  EOT  (competion),  too  many  errors  detected  or  a 
keypress  indication,  with  appropriate  status  returned  to  the  caller. 
Update_Status  is  called  several  times  throughout  each  branch  to 
indicate  progress  or  report  errors.  The  transfer  file  is  then  closed, 
as  are  the  monitor  and  status  windows.  RS_Initial ize  is  called  to 
reset  the  communications  port  to  its  previous  word  length. 

o.  CoaHnand_Xfer 

(1)  Type:  Function 

(2)  Purpose:  Transfer  a  single  command  packet. 
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(3)  Description  of  Parameters: 

Input:  Send,  TRUE  to  send  a  packet,  FALSE  to 
receive  a  packet;  Bu-f ,  the  data  buffer  send  or  received;  Blocksize,  the 
size  o-f  the  data  bu-f+er. 

Output;  A  status  code  indicating  success  or  what 
problem  was  encountered. 

(4)  Subroutines  Called: 

Update. Status  (local  to  this  function) 

CRT.ClrScr 
CRT. Del  ay 
CRT.GoToXY 
CRT.KeyPressed 
CRT.ReadKey 
General .Beep 
Xmodm. Sync_Send 
Xmodm.Get_Buf f er 
Xmodm. Send_Record 
Xmodm. Sync_Receive 
Xmodm.  Ur  i  teAu>: 

Wndow. Close_Window 
Wndow. Open_Wi ndow 

(5)  Process  Description 

This  function  operates  similarly  to  Xmodem_Xfer, 
except  that  a  single  Xmodem  packet  is  transferred.  The  public  variable 
Moni tor_Transf ers  is  checked  to  see  if  a  monitor  window  is  to  be  opened 
to  display  the  characters  transfered.  If  TRUE,  the  window  and  the 
monitor  file  are  opened.  The  status  window  is  then  opened  and 
unchanging  field  names  written.  RS_Eight_Bits  is  called  to  insure  the 
communications  port  passes  eight  bit  data,  regardless  of  its  settings. 
After  initializing  the  variables  used  to  report  status,  the  function 
branches  depending  on  whether  a  file  is  to  be  sent  or  received.  If 
Send  is  TRUE,  Sync_Send  is  called  to  detect  sync  characters  from  the 
i^eceiver.  If  Sync_Send  times  out,  the  transfer  is  aborted  and  the 
timeout  15  repo'^ted  to  the  caller,  IF  sync  is  detected  buf  is  sent  via 
Send_Record.  If  successful ,  EOT  is  sent  to  the  receiver  to  signal  the 
end  of  transmission.  The  KeyPressed  function  is  monitored  at  several 
points,  and  will  cause  an  immediate  abort  with  status  returned  to  the 
caller.  If  Send  is  FALSE,  Sync_Receive  is  called  to  send  sync 
characters.  If  a  timeout  is  not  encountered,  Recei ve_Record  is  called 
to  obtain  received  buffer  and  monitor  status.  The  transfer  terminates 
on  receipt  of  EOT  (competion),  too  many  errors  detected  or  a  keypress 
indication,  with  appropriate  status  returned  to  the  caller. 
Update_Status  is  called  several  times  throughout  each  branch  to 
indicate  progress  or  report  errors.  The  monitor  file  is  then  closed, 
as  ai'e  the  monitor  and  status  windows.  RS_Initialize  is  called  to 
reset  the  communications  port  to  its  previous  word  length. 

p.  Transfer_File 

(1)  Type:  Procedure 

(2;  Purpose:  To  obtain  the  name  of  the  file  to  be 
transferred  from  the  local  operator. 


(3)  Description  o-f  Parameters: 

Input:  Send,  TRUE  if  a  file  send  is  desired, 
FALSE  to  receive  a  file. 

Output:  Monitor  display. 

(4)  Subroutines  Called: 

Wndow.Open_Window 
WndoM . Cl ose_Wi ndow 
Support. NoFile 
System. Assign 
System. Length 
System. Reset 
System. Rewrite 
System. Upcase 

(5)  Process  Description 

Transf er_Fi le  first  opens  a  window  to  ask  the 
operator  what  filename  is  to  be  transferred.  The  transfer  is  aborted 
and  NoFile  is  called  if  the  file  is  not  found  or  cannot  be  opened. 
Depending  on  Send,  the  file  is  opened  for  reading  or  writing  and  then 
Xmode(r_Xfer  is  called  to  accomplish  the  transfer. 

q.  Respond_by_File 

(1)  Type:  Procedure 

(2)  Purpose:  To  allow  the  remote  Slave  to  send  the 

results  of  a  program  or  other  message  contained  in  a  file  to  the 
Master . 

(3)  Description  of  Parameters: 

Input:  Response,  the  file  to  be  sent. 

Output;  None  from  this  procedure. 

(4)  Subroutines  Called; 

Wndow . Open_Wi ndow 
Wndow. Close_Window 
System. Assign 
System. Length 
System. Reset 
System. Rewrite 
System. Upcase 

(5)  Process  Description 

Transf er_Fi le  first  opens  a  window  to  ask  the 
operator  what  filename  is  to  be  transferred.  The  transfer  is  aborted 
if  the  file  is  not  found  or  cannot  be  opened.  Depending  on  Send,  the 
file  is  opened  for  reading  or  writing  and  then  Xmodem_Xfer  is  called  to 
accomplish  the  transfer, 

r .  Get_Response 

(D  Type;  Function 

(2:  Purpose:  To  allow  the  Master  to  receive  file 

responses  from  a  program  completed  by  the  Slave. 

(3)  Description  of  Parameters: 

Input:  BlockSise,  the  size  of  th i  Xmodem  buffers. 
Output:  Status  code  of  the  call. 


(4)  Subroutines  Called: 

CRT.KeyPressed 
CRT. ReadKey 
DataCom . RS_Ei ght_Bi ts 
DataCom. RS_Restore 
Xmodm.Sync_Receive 
Xmodm. Recei ve_Record 
Xmodm. WriteAux 
System. Assign 
System. Close 
System. Rewrite 
Wndow. TextColor 
Mndow. TextBackGround 

(5)  Process  Description 

For  this  -function,  the  monitor  window  is  set  to 
the  current  window,  and  the  monitor  rile  is  directed  to  NUL,  the  bit 
bucket.  This  satis-fies  ReadAux  and  WriteAux  so  that  the  display  will 
operate  properly  without  creating  an  unnecessary  -file.  RS_Eight_Bits 
is  called  to  insure  the  communications  port  passes  eight  bit  data, 
regardless  o-f  its  settings.  A-fter  initializing  the  variables  used  to 
report  status,  Sync_Receive  is  called  to  send  sync  characters.  H  a 
timeout  is  not  encountered,  Recei ve_Record  is  called  to  obtain  received 
bu-f-fer  and  monitor  status.  The  trans-fer  terminates  on  receipt  o-f  EOT 
(competion) ,  too  many  errors  detected  or  a  keypress  indication,  with 
appropriate  status  returned  to  the  caller.  Update_Status  is  called 
several  times  throughout  each  branch  to  indicate  progress  or  report 
errors.  RS_Initialize  is  called  to  reset  the  communications  port  to 
its  previous  word  length,  and  the  dummy  monitor  -file  is  closed. 

s.  Xmodm  Unit  Initialization 

(1)  Types  Unit  Initialization  Procedure 

(2)  Purpose:  To  initialize  the  unit  on  loading. 

<3}  Description  o-f  Parameters: 

Input;  Suppress_EOT,  Mom tor_Trans-f ers. 

Output;  Suppress_EOT,  Monitor_Transf ers. 

(45  Subroutines  Called;  None. 

(5)  Process  Description 

Suppress_EOT  and  Monitor_Transfers  are  set  to 

their  de-fault  values. 
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This  is  the  unit  that  accomplishes  all  inter-face  to  the 
communications  ports  -for  character,  string  and  bu-ffer 
transfer.  It  also  initializes  the  communications  ports 
and  provides  interrupt  interrupt  service  routines  for 
character  receive. 
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for  Interrupt  14",  source  listing, 

Ross  M.  Greenberg,  1987. 


Developed  by  Nelson  Ard. 
Last  modification  Sep  89. 
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(»  Modification  history 

8  Sep  89  -  added  RS_Ei ght_Bits  to  change  the  port  data  work 

width  to  eight  bits  for  Xmodem  protocol  operation. 
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UNIT  DATACOM; 


INTERFACE 


USES  General,  CRT,  Dos; 

CONST 

COM!  =  1; 

COM2  =  2; 

COM3  =  3;  {not  implemented,  but  MS-DOS  knows  about  them) 
COM4  =  4;  {not  implemented,  but  MS-DOS  knows  about  them! 


(*♦♦*#*♦*«•****♦***♦■*****♦  Start  Edwards  Excerpt  »*♦*♦******♦***♦***♦) 

TYPE 

RS_Baud  =  (B1 1 0 , B1 50 , B300 , BAOO , B1200 , B2400 , B4800 , B9600 , B 1 9200 , 
B38400  ); 

RS_Parity  =  (None, Odd, Nevermind, Even) ; 

RS_Con-fig  =  Record 
Stop , 

Length  :  byte; 

Alias  :  string! 101; 

Speed  :  RS_Baud; 

Parity  :  R3_Parity; 

IRQNo  :  byte; 

Installed  :  boolean; 
end;  {  RECORD  1 


PortRange  =  C0M1..C0M2; 

VAR 

Current_Co(r.  ;  Bvte;  {public,  specifies  current  port  for 

command  or  file  transfer} 

Comport  :  ARRAY  [  PortRange  1  OF  RS_Config; 


ProcedLc^e  RS_Break; 

{  This  procedure  instructs  the  currently  selected  data  communications 
po’’t  to  send  a  break  signal! 

Function  RS232_Avai 1 : Bool ean ; 

(This  function  returns  TRUE  if  there  are  characters  to  be  read  from 
the  RS232  port.  It  is  analogous  to  the  Turbo  function  KEYPRESSED  for 
the  keyboard. 


(*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1987  Sybex,  Inc.  All  rights  reserved. 

Continue  Edwards  Excerpt 


(*•»****♦**•***♦♦*♦♦***  Continue  Edwards  Excerpt  **■♦•**♦«■****♦*•*♦♦■»»*♦) 
Function  RS232_In:Char; 

{The  AUX  device  is  set  to  point  to  this  -function  -for  input.  It  returns 
the  next  character  received  -from  the  RS232  port. 


Procedure  RS232_0ut  <  Param  :  Char  ) ; 

{  Sends  the  character  to  the  RS232  port.  } 

Procedure  RS_Ini t i al i ze <Com: Byte; Speed: RS_Baud; Par ity: RS_Pari ty; 

Stop, Length: Byte) ; 

{  Initialize  communi cations  port.  Vector  the  appropriate  interrupt  to 
point  to  our  interrupt  service  routine.  Initialize  hardware 
handshaking  lines.  Store  current  settings  in  a  data  structure  -for 
restoration. 

Input:  COM  -  The  RS232  port  to  be  handled 
Speed  -  The  baud  rate  o-f  the  line 

P  -  The  parity  o-f  the  line 

Stop  -  The  number  of  stop  bits 

Length  -  The  number  of  data  bits 


Procedure  R5_Cleanup; 

{This  procedure  should  be  called  on  exit  to  disable  interrupts  on  the 
RS232  port  and  reset  everything  to  its  default  state. 


!.*  Reprinted  with  extensive  modi f i cati ons  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1987  Sybex,  Inc.  All  rights  reserved. 

*♦*♦******•»»♦♦**»*«•**♦♦*  End  Edwards  Excerpt  ***♦**♦♦•«■**♦♦**#*♦«■#*#*) 

Procedure  PurgeLine; 

{  This  function  clears  the  receive  buffer  and  UART  receive  buffer  for 
the  currently  selected  port/ 

Function  Connected  :  boolean; 

{  Returns  TRUE  if  the  Data  Set  Ready  line  is  true,  signalling  hardware 
handshaking  } 

Punction  RS232_peek  :  Char; 

{  Added  to  allow  nondestructive  read  of  the  currently  selected  port 
input  buffer  for  xmodm. Sync_recei vel 
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Procedure  Send_String  (  S  :  String  ); 

■C  Send  a  string  out  the  currently  selected  RS232  port  > 

Procedure  RS_Restore  (  COM  ;  byte  ); 

•C  Reinitialize  the  COM  Port  } 

Procedure  RS_Eight_Bits; 

{  Adjust  the  comport  -for  eight  bits  regardless  oi  current  setting  > 


13'=' 


IMPLEMENTATION 


(•»♦****♦**♦*♦********»###  Start  Greenberg  extract  ****«•**■*»*♦#♦**♦«■**#*) 
CONST 

•C  UART  declarations  '■ 

•C  Interrupt  Enable  Register  ]• 

{  Or  one  or  more  of  these  bits  to  enable  the  respective  interrupts  } 


IER_RDA  =  $01;  I  Receive  Data  Available  Int  Bit  -  - 1  } 

IER_THRE  =  $02;  C  Transmitter  Hold  Register  Empty  Bit  -  — 1-  } 

IER_RLS  =  $04;  {  Receive  Line  Status  Int  Bit  -  -1 —  } 

IErImS  =  $08;  i  Modem  Status  Int  Bit  -  1 -  > 

{  Interrupt  Identification  Register  > 

{  Check  the  lower  four  bits  to  see  what  interrupt  called  } 

IIR_RLS  =  $05;  C  Receiver  Line  Status  Interrupt  -  -101  } 

IIR_RDA  =  $04;  C  Receive  Data  Available  -  -100  > 

IIR_THRE  =  $02;  {  Transmitter  Hold  Register  is  Empty  -  -010  } 

IIR_PEND  =  $01;  {  zero  if  *  any  *  interrupt  pending  -  -001  1 

IIR_MS  =  $00;  C  Modem  Status  interrupt  -  -000  3 


[  Line  Control  Register  1 

I  Or  one  or  more  of  these  bits  to  select  comm  port  parameters  1 


LCR. 

.CHR5 

$00; 

{ 

Five  bit  character 

— 

— 00 

} 

LCR. 

.CHR6 

= 

$01; 

f 

\ 

Six  bit  character 

— 

—01 

} 

LCR. 

.CHR7 

= 

$02; 

r 

Seven  bit  character 

— 

—  10 

$ 

LCR. 

.CHRS 

= 

$03: 

r 

L 

Eight  bit  character 

— 

—11 

\ 

J 

LCR. 

STOP! 

= 

$00; 

f 

V 

One  stop  bit 

— 

-0 — 

J 

LCR. 

.ST0F2 

$04; 

{ 

Two  stop  bits 

— 

-1  — 

} 

LCR. 

.NOPARITY 

$00; 

r 

No  parity 

— 

0 - 

% 

J 

LCR. 

.PARITYEN 

= 

$08; 

f 

V 

Enable  parity  (see  SPARITY  and 

EPARITY 

— 

1 — 

} 

LCR. 

.EPARITY 

= 

$  1 0 ; 

r 

L 

Even  parity  bit 

- 1 

— 

LCR. 

.SPARITY 

= 

$20; 

Stick  parity 

-1- 

— 

J 

LCR. 

.BREAK 

= 

$40; 

r 

L 

Transmits  a  BREAK  (space) 

-1  — 

— 

\ 

J 

LCR. 

.DLAB 

= 

$80 ; 

r 

\ 

Divisor  Latch  Access  bit 

1  — 

— 

\ 

J 

(■*  Reprinted  from  "TSRCOMM.ASM  A  Replacement  for  Interrupt  14"  by  Ross 
M.  Greenberg,  by  permission  of  the  author.  Copyright  1987,  Ross  M. 
Greenberg.  All  rights  reserved. 

**********************  Continue  Greenberg  Excerpt  *»****-i«-*#-*»*#»#-»#***) 
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(♦*****#»**♦*•***♦■»»»*#  Continue  Greenberg  extract  ***»#***»*♦******■»♦**) 


{  Modem  Control  Register  > 

{  Or  one  or  more  o-f  these  bits  to  signal  the  modem  > 


MCR_DTR  =  $01;  £  set  Data  Terminal  Ready  1  > 

MCR_RTS  =  $02;  {  set  Request  To  Sent  -  — 1-  > 

MCR_0UT1  =  $04;  {  Output  1  (resets  Hayes  modem)  -  -1 —  > 

MCR_0UT2  =  $08;  {  Output  2  (allows  comm 

port  interrupts)  - 1 - > 

MCR_L00P  =  $10;  {  Loopback  test  1 - > 

{  Line  Status  Register  } 

i  Test  one  or  more  o-f  these  bits  to  determine  comm  port  status  3 

LSR_DATA  =  $01;  {  data  is  available  - 1  > 

LSR_0VERRUN  =  $02;  C  overrun  error  bit  -  — 1- 

LSR_PARITY  =  $04;  -C  parity  error  bit  - 1  — 

LSR_FRAMING  =  $08;  {  framing  error  bit  -  1 - 

LSR_BREAK  =  $10;  {  BREAK  detected  bit  1  - 

LSR_THRE  =  $20;  -C  Transmit  Holding  Register  Empty  — 1- - > 

LSR_TSRETY  =  $40;  {  Transmit  Shift  Register  Empty  -1 —  -  } 


C  Modem  Status  Register  } 

■C  Test  one  or  more  of  these  bits  to  determine  modem  actions  } 


MSR 

DEL  CIS  = 

$01; 

/ 

V 

delta  Clear  To  Send 

— 

- 1  1- 

MSR 

DEL  DSR  = 

$02; 

{ 

delta  Data  Set  Ready 

— 

—  1-  } 

MSR 

EDGE_RI  = 

$04; 

e 

Trailing  Edge  of  Ring  Indicator 

— 

-1—  3- 

MSR 

DEL  SIGD  = 

$0S; 

r 

V 

delta  Receive  Line  Signal  Det 

— 

1 - 3- 

MSR 

.CTS 

$10; 

r 

L 

Clear  To  Send 

- 1 

j 

MSR 

_DSR 

$20; 

e 

Data  Set  Ready 

—  1- 

_ _  ^ 

J 

MSP 

.RI 

$40; 

f 

Ring  Indicator  -  entire  ring 

-1-- 

MSR 

DCD 

$80: 

r 

K 

Data  Carrier  Detect  -  on  line 

1  — 

J 

<*  Reprinted  from  "TSRCOMM.ASM  A  Replacement  for  Interrupt  14"  by  Ross 
M.  Greenberg,  by  permission  of  the  author.  Copyright  1987,  Ross  M. 
Greenberg.  All  rights  reserved. 

«-innnnnnnn>”*-»- End  Greenbe'^g  Excerpt  *********************) 
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rS  r'l 


(*******************  start  Edwards  Excerpt  ■»•******•)(■**«■♦♦****«■**♦****) 


•C  IRQ  Lines  ) 

IRGline  ;  ARRAY  C  PortRange  3  OF  byte  =  (  4,  3  ); 

TYPE 

INS8250  =  record 


THR 

word; 

{ 

Transmit  Holding  Register 

} 

RBR 

word; 

{ 

Receive  Holding  Register 

} 

lER 

word; 

{ 

Interrupt  Enable  Register 

} 

HR 

word; 

{ 

Interrupt  Ident  Register 

r 

LCR 

word; 

{ 

Line  Control  Register 

y 

MCR 

word; 

{ 

Modem  Contro  Register 

} 

LSR 

word; 

{ 

Line  Status  Register 

y 

MSR 

word; 

{ 

Modem  Status  Register 

y 

DLL 

word; 

{ 

Divisor  Latch  LSB 

y 

DLM 

word; 

{ 

Divisor  Latch  MSB 

j 

END; 

CONS-^ 

RS_Bu-f-fer_Size  =  4095;  {Size  o-f  Bu-f-fer  -  {...Change  this  it  you 

want  a  di-f-ferent  buf-fer  size! 

•C  8259  PIC  declarations  > 

ISR  =  f20;  {  Interrupt  Service  Register  } 

IMR  =  $21;  {  Interrupt  Mask  Register  } 

IRQ4_Mask  =  $EF;  {  Enable  for  COMl  > 

IRQ3_Mask  =  $F7;  {  Enable  for  COM2  > 

C  IBM  PC  comm  port  interrupt  vectors  } 

C0M1_INTR  =  $0C; 

CGM2_INTR  =  $0B; 

RS_Error  :  byte  =  0; 

Chk_DSR  :  boolean  =  FALSE; 

Chk_CTS  :  boolean  =  FALSE; 

Reqs  :  Array  Cl.. 23  of  INS8250  = 

((THR:$3F8;  RBR;$3F8;  IER;$3F9;  IIR:$3F9;  LCR;$3FB; 

MCR:$3FC;  LSR;$3FD;  MSR:$3FE;  DLL;$3F8;  DLM;$3F9), 

(THR;$2F8;  RBR:$2F8;  IER:$2F9;  IIR:$2F9;  LCR:$2FB; 

MCR:$2FC;  LSR:$2FD;  MSR:$2FE;  DLL:$2F8;  DLM:$2F9)); 

(*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1987  Sybe:; ,  Inc.  All  rights  reserved. 

Modified  after  "Re::  TP4.0  Aux  Problem"  by  Naoto  Kimura,  reprinted 
by  permission  of  the  author. 

♦int*#***#*^*-#******##*  Continue  Edwards  Excerpt  •»#**♦*•♦»**#♦*»*#♦##*) 


142 


<♦•**•*♦*#*•»##•*■»*#*■»#•»#  Continue  Edwards  Excerpt  *#«■##»*#«•*■#♦***»*«•*#) 
Var  RS_Bu-f'fer  ;  Array  Cl.  .2,0.  .RS_Buf'fer_Si2e3  o-f  Byte; 

RS_But  _Head , 

RS_Bu-f_Tail  :  Array  Cl.. 23  OF  word; 
index  ;  byte; 

Line_5ettings  ;  byte; 

Procedure  Disablelnterrupts; 

{  Insert  assembly  code  to  disable  computer  interrupts  } 

INLINE  <  $FA  ); 

Procedure  Enableinterrupts; 

•C  Insert  assembly  code  to  enable  computer  interrupts  J 
INLINE  (  $FB  ); 

Function  RS232_Avai 1 ; Boolean; 

CThis  -function  returns  TRUE  i-f  there  are  characters  to  be  read  -from 
the  RS232  port.  It  is  analogous  to  the  Turbo  function  KEYPRESSED  for 
the  keyboard. 

■> 

J 

Beg  i  n 

Rs232_Avail  := 

RS_Buf_Head  C  Current_C0M  3  •<>  RS_Buf_Tail  C  Current_CDM  3; 
End;  Cor  RS232_Avail} 

Procedure  RS232_ISR1 

(Flags,  CS,  IP,  AX,  BX,  CX,  DX,  SI,  DI,  DS,  ES,  BP  ;  word); 
INTERRUPT; 

■I  This  procedure  handles  interrupts  -rrom  RS232  port  one 
THIS  PROCEDURE  MUST  NOT  BE  CALLED  BY  ANY  OTHER  PROCESS  1 

Begin 

Di sablelnterrupts; 

RS_Error;=Port[  RegsC  COMl  3.LSR  3  and  flE; 

RS_BufferC  COMl,  RS_Buf_Tail  C  COMl  33  :=  PortCRegsC  CDMl  3.RBR3; 
RS_Buf_TailC  COMl  3  ;=  (  RS_Buf_TailC  COMl  3+1) 
mod  (RS_Butf er_Size+l ) ; 

Enableinterrupts; 

Porte  $20  3  ;=  $-20;  -CReport  end  of  service  to  PICl 
End;  Cof  RS232_ISR1  3 

Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1987  Sybex ,  Inc.  All  rights  reserved. 

Modified  afte^-  "Re;:  TP4.0  Aux  Problem"  by  Naoto  Kimura,  reprinted 
by  permission  of  the  autho-'. 

Continue  Edwards  Excerpt  ♦+■*■«••»•♦*■»•«■*#■»•«••+♦■**++*) 
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(##*«•♦*•*#**♦***»*##**  Continue  Edwards  Excerpt  **«■*•»**♦*«■*♦*■*****♦♦) 
Procedure  RS232_ISR2 

(Flags,  CS,  IP,  AX,  BX,  CX,  DX,  SI,  DI,  DS,  ES,  BP  :  word); 
INTERRUPT; 

{This  procedure  handles  interrupts  from  RS232  port  two 
THIS  PROCEDURE  MUST  NOT  BE  CALLED  BY  ANY  OTHER  PROCESS] 

Begin 

Disable Interrupts; 

RS_Error:=PortC  RegsC  CQM2  3.LSR  ]  and  $1E; 

RS^BufferC  COM2,  RS_Buf_Tail  C  COM2  ]3  :=  PortCRegsC  COM2  3.RBR]; 
RS_Buf_TailC  COM2  ]  ;=  T  RS_Buf_TailC  COM2  3+1) 
mod  (RS_Buf fer_Size+l ) ; 

EnableInterrupts; 

^'ort[  f20  3  :=  fCO;  {Report  end  of  service  to  PIC] 

End;  {of  RS232_ISR2  ]• 

P‘'ocedure  PS_Break; 

{  This  procedure  instructs  the  currently  selected  data  communications 
port  to  send  a.  break  signal) 


Beg  i  n 

Port {Reg3CCurrent_Com3. LCR3  :  = 

'='ort[RegsCCurrent_Com3.LCR3  or  LCR_BREAK; 

Dei  ay (200);  {1/5  second) 

Port[RegsICurrent_CQ(n3  .LCR3  ;  = 

Port :Reg5CCurrent_Com3 . LCR3  xor  LCR_BREAK; 

End;  (of  RS_Break) 

'^unction  RS232_In: Char ; 

(The  AUx  device  is  set  to  point  to  this  function  for  input.  It  returns 
the  next  character  received  from  the  RS232  port. 


Begin 

While  RS_Buf_Head  C  Current_C0M  3  =  RS_Buf_Tail  [  Current_C0M  3  Do 
Del  ay ( 10) ; 

RS232_In  := 

Char  (  RS_Buffer  C  Current_C0M,  RS_Buf_Head  C  Current_C0M  33); 
RS_Buf_Head  C  Current_C0M  3  := 

(RS_Buf_Head  [  Current_C0M  3+1)  mod  (RS_Buf f er_Si ze+l ) ; 

End;  Cof  Ri232_In) 


(+  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1987  Sybex,  Inc.  All  rights  reserved. 

Modified  after  "Re::  TP4.0  Aux  Problem"  by  Naoto  Kimura,  reprinted 
by  permission  of  the  author. 

Continue  Edwards  Excerpt  ********************) 
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(♦#♦*♦*♦•»■**♦■»*♦*■*♦♦*■*  Continue  Edwards  Excerpt  «■«•**♦*«■***«■*«•«•*#**•**) 


Procedure  RS232_0ut  (  Par am  ;  Char  ) ; 

C  Sends  the  character  to  the  RS232  port.  ' 

Begin 

While  (<  Port  [Regs  C  Current_Com  3.LSR3  and  $20)  <>  $20) 
{Transmit  Reg  empty} 
do  Delay ( 1 ) ; 

(.*  Request  to  send  *) 

Port  C  Regs  C  Current_C0M  3.MCR  3  :=  MCR_RTS  OR  MCR_0UT2; 

IF  Chk_DSR  THEN 

While  ((Porte  Regs  C  Current_C0M  3.MSR3  and  MSR.DSR)  <>  MSR_DSR) 
do  Delay (1);  {Wait  a  while} 

IF  Chk_CTS  THEN 

While  ((PortL  Regs  C  Current_C0M  3.MBR3  and  MSR_CTS)  <>  MSR_CTS) 
do  Delay (1);  {Wait  a  while) 

PortCRegsC  Current_C0M  3.THR3  :=  Byte  (  Param  ); 

RS_Error ; =0; 

End? 

(*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1987  Sybex,  Inc.  All  rights  reserved. 

Modified  after  "Re::  TP4.0  Aux  Problem"  by  Naoto  Kimura,  reprinted 
by  permission  of  the  author. 

*♦***«•**♦♦♦♦******♦«■****  End  Edwards  Excerpt 

(#**#***•***•*■»*********■*«•*♦  Start  de  Boer  extract  ♦♦*»*****♦*«••***«■♦*■*») 

PROCEDURE  Enable  (  IRQ  :  byte  ); 

{  Set  the  Interrupt  Mask  Register  on  the  Programmable  Interrupt 
Controller  to  recognize  interrupts  from  this  port  } 

BEGIN 

Port  [IMR3  :=  Port  CIMR3  AND  NOT  (  1  SHL  IRQ  >; 

END;  C  Enable  ) 

PROCEDURE  Disable  (  IRQ  :  byte  ); 

{  Reset  the  Interrupt  Mask  Register  on  the  Programmable  Interrupt 
Controller  to  ignore  interrupts  from  this  port  } 


BEGIN 

P'ort  CIMR3  ;=  Port  CIMR3  OR  (  1  SHL  IRQ  ); 
END;  {  Disable  ) 


(♦  Reprinted  from  "Serial  Unit  in  TP4"  by  Reino  de  Boer,  by  permission 
of  the  author.  Copyright  1987  Remo  de  Boer.  All  rights  reserved. 
#***♦*#*•*•#♦♦*##**»***•»•**  Continue  Boer  Excerpt  *********^^****■*******) 
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(*♦***•****♦**♦♦*****♦**■»  Continue  de  Boer  extract  ******«■***♦♦«•#**♦■**♦) 
PROCEDURE  Establish  (  COM  ;  byte  ); 

{  Raise  all  hardware  handshaking  lines  to  prepare  tor 
communications  > 

BEGIN 

WITH  Regs  C  COM  ]  DO 

Port  C  MCR  ]  ;=  MCR.DTR  OR  MCR_RTS  OR  MCR_0UT2; 

END; 

PROCEDURE  SendEOI  (  IRQ  :  Byte  ); 

{  Send  an  End  Of  Interrupt  command  to  the  Programmable  Interrupt 
Controller  to  let  it  know  we  are  done  servicing  this  interrupt  1 

BEGIN 

Port  C  I SR  ]  :=  #60  OP  IRQ; 

END; 

Procedure  ResetChip  (  Com  :  Byte  ); 

C  Disable  UART  generated  interrupts,  drop  the  hardware  handshaking 
lines.  Shut  down  the  currently  selected  communications  port  } 

Var  Dummy  :  byte; 

Begin 

WITH  Regs  C  Com.  3,  Comport  C  Com  3  DO  BEGIN 

WHILE  (  <;  Port  C  LSR  3  AND  LSR_DATA  )  <>  0  )  DO 
Dummy  :=  Port  [  RBR  3; 

Di  sa.bl  einterrupts: 

•[  Allow  none  o-^  the  interrupt  types  3 
Port  C  lER  3  :=  0: 

■C  Tell  moJ_'  not  ready  ? 

Port  C  MCR  3  :=  Port  [  MCR  3  AND 

NOT  (  MCR_0UT2  OR  MCR_DTR  OR  MCR_RTS  ); 

C  Disable  ail  interrupts  -for  this  port  3 
Disable  (  IRQNo  ); 

Enabl einterrupts: 

END; 

END; 


CONST  C  Bit  rate  divisor  table  3 

Divisor  ;  ARRAY  [RS_Baud3  OF  word  = 

'  1047,  763,  384,  192,  96,  48,  24,  12,  6,  3  ) ; 

(*  Reprinted  -from  "Serial  Unit  in  TP4"  by  Remo  de  Boer,  by  permission 
o-f  the  autho”'.  Copyright  1987  Remo  de  Boer.  All  rights  reserved. 

Continue  Boer  Excerpt  ******■********■*******■) 
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(**•***♦•************♦♦***  Continue  de  Boer  extract  ♦*******•***■*♦***♦■*#■*) 

C  Select  bit  rate  by  programming  the  PBRG  } 

PROCEDURE  SelectBitRate(  COM  :  byte;  Speed  :  RS_Baud  ); 

CONST  PBRG.Settle  ;  word  =  250; 

VAR  BaudDiv  ;  word; 


BEGIN 

{  Update  port  data  > 

ComPort  C  Com  ]. Speed  :=  Speed; 

BaudDiv  ;=  Divisor  C  Speed  ]; 

•C  Set  Divisor  Latch  Access  Bit  } 
portC  Regs  C  Com  I.LCR  2  ;= 

port!  Regs  [  COM  3.LCR  3  OR  LCR_DLAB; 
i  Bit  rate  divisor  to  PBRG  I 
portwC  Regs  C  COM  3.RBR  3  ;=  BaudDiv; 

C  Give  port  some  time  to  settle  1 
del  ay <  PBRG_Settle  ); 

C  Reset  function  of  RBR  1 
port!  Regs  C  COM  3.LCR  3  := 

port!  Regs  C  COM  3.LCR  3  XOR  LCR_DLAB; 
END;  C  SeiectBitRate  1 


{  Set  woi^d  length  in  Line  Control  Register  } 

PROCEDURE  SelectWordLength (  COM  :  Byte;  Length  s  byte  ); 


VAR  LineCor.trol  :  byte; 

BEGIN 

i  Update  port  data  1 

Com.Port  C  Com  3. Length  :=  Length; 

LineControl  :=  port!  Regs  C  Com  3.LCR  3; 

LineControl  :=  (  LineControl  AND  (  NOT  LCR_CHR8  )  ) 
OR  (Length  -  5) ; 

•C  Set  relevant  bits  '■ 

port  I  Regs  C  COM  3.LCR3  :=  LineControl; 

END;  {  SelectWordLength  > 


(♦  Reprinted  from  "Serial  Unit  in  TP4"  by  Remo  de  Boer,  by  permission 
of  the  author.  Copyright  1987  Remo  de  Boer.  All  rights  reserved. 
*##**#♦#*#*****#**■***■»#*  Continue  Boer  Excerpt 
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(****•********#*•*******♦#  Continue  de  Boer  extract  *♦♦*♦♦*■*■******•******) 

{  Set  stopbits  in  Line  Control  Register  } 

PROCEDURE  SelectFraming <  COM  :  Byte;  Stop  ;  byte  ); 

VAR  LineControl  ;  byte; 

BEGIN 

i  Update  port  data  ] 

ComPort  C  Com  D.Stop  :=  Stop; 

LineControl  :=  portC  Regs  C  Com  D.LCR  3; 

LineControl  ;=  <  LineControl  AND  (  NOT  LCR_Stop2  )  ) 

OR  <(Stop  -  1)*4); 

{  Set  relevant  bits  } 

port!  Regs  C  COM  3.LCR  3  ;=  LineControl; 

END;  C  SelectFraming  } 


C  Set  parity  in  Line  Control  Register  } 

PROCEDURE  SelectParity (  COM  :  byte;  Parity  :  RS_Parity); 

VAR  LineControl  ;  byte; 

BEGIN 

ComPort L  Com  3. Parity  ;=  Parity; 

{  Update  port  data  } 

LineControl  ;=  portC  Regs  C  Com  3.LCR  3; 

LineControl  ;=  <  LineControl  AND  (  NOT  $40  )  ) 

OR  0RD(Parity)*3; 

{  Set  relevant  bits  > 
portC  Regs  C  COM  J.LCR3  ;=  LineControl 
END:  {  SelectParity  } 

CONST  RTS_Settle  :  byte  =  2; 

DTR_Settle  :  byte  =  2; 

PBRG_Settle  :  word  =  250; 

Reprinted  -from  "Serial  Unit  in  TP4"  by  Reino  de  Boer,  by  permission 
of  the  author.  Copyright  19B7  Reino  de  Boer.  All  rights  reserved. 
*♦**♦«•**■)>■♦*****♦♦#**♦***■((•*  End  de  Boer  Excerpt  ***♦♦***♦♦*♦*♦♦****»*) 
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Procedure  PurgeLine; 

■C  This  -function  clears  the  receive  buffer  and  DART  receive  buffer  for 
the  currently  selected  port} 

VAR 

Dummy  ;  Byte; 

BEGIN 

RS_Buf_Head  t  Current_COM  ]  :=  0; 

RS_Buf_Tail  C  Current_COM  3  :=  0; 

Dummy  :=  PortCRegstCurrent_CQM3.RBR3; 

End;  {of  PurgeLine} 

FUNCTION  Connected  :  boolean; 

{  Returns  TRUE  if  the  Data  Set  Ready  line  is  true,  signalling  hardware 
handshaking  } 

BEGIN 

Connected  :=  PortCRegsCCurrent_Com3.MSR3  and  $80  =  $60; 

END; 

Function  RS232_peek  :  Char; 

{  Added  to  allow  nondestructive  read  of  the  currently  selected  port 
input  buffer  for  xmodm. Sync_recei ve} 

Beg  i  n 

While  RS_Buf_Head  Z  Current^CON  3  = 

RS_Baf_TeiT  C  Current_C0M  3  do  Delay<10); 

RS232_peek  Char(  RS_BufferC  Current_C0ri, 

RS_Buf_Head  CCurrent_C0M3  3); 

End;  -Cof  RS232_Peek: 

Procedure  RS_Ei ght_Bi ts; 

{  Adjust  the  comport  for  eight  bits  regardless  of  current  setting  3 
BEGIN 

Port  C  Regs  C  Current_Com  3.LCR  3  ;=  LCR_N0PARITY  OR  LCR.STOPl 

OR  LCR_CHRS; 

END; 

Procedure  RS_Re5tore  (  COM  :  byte  ) ; 

{  Reinitialize  the  COM  Port  3 
BEGIN 

WITH  Comport  C  COM  3  DO 

RS_Initialize<  Com,  Speed,  Parity,  Stop,  Length  >; 

END; 


Procedure  Send_String  (  S  ;  String  ); 

C  Send  a  string  out  the  currently  selected  RS232  port  } 

BEGIN 

IF  Length  (S)  >0  THEN 

FOR  index  ;=  1  to  Length  (S)  DO 
RS232  Out  (  S  C  index  3  ); 

END; 

(#•***•****•»******■»•***■**»  Start  Edwards  Excerpt  ♦*■****♦•****«•*»***«■■****#) 
Procedure  RS232_Init  (  COM,  Params  :  word  ); 

{  Call  BIOS  interrupt  $14  with  a  -formatted  word  to  initialize  the 
currently  selected  communications  port  > 

VAR  Regs  ;  DOS. Registers; 

BEGIN 

Regs.DX  ;=  Com-1; 

Regs. AX  :=  Params; 

Intr  ($14, Regs) ; 

END; 


^‘"ocedure  RS_Ini tial ize (Com; Byte; Speed :RS_Baud; Parity :RS_Parity; 

Stop, Length: Byte) ; 

I  Initialize  communications  port.  Vector  the  appropriate  interrupt  to 
point  to  our  interrupt  service  routine.  Initialize  hardware 
handshaking  lines.  Store  current  settings  in  a  data  structure  -for 
restoration. 


Input ! 


COM  -  The  RS232  port  to  be  handled 
Speed  -  The  baud  rate  o-f  the  line 

P  -  The  parity  of  the  line 

Stop  -  The  number  of  stop  bits 

Length  -  The  number  of  data  bits 


Var  Params  ;  word; 


(*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1987  Sybex,  Inc.  All  rights  reserved. 

Modified  after  "Re;:  TP4.0  Aux  Problem”  by  Naoto  Kimura,  reprinted 
by  permission  of  the  author. 

*♦*##*♦**♦*♦♦****♦***  Continue  Edwards  Excerpt  *♦»♦*•****♦«•♦♦•«■♦*♦**•*) 
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(******♦*•*#***♦♦♦*«•■**  Continue  Edwards  Excerpt  *#*******♦*#**■»***«#) 
Begin 

WITH  Regs  C  COM  3  DO  BEGIN 

Current_Com:  =Com|i  {save  comm  port  in  local  variable) 

Params  :=  Ord (Speed) #32  +  Ord (Parity) *8  +  (Stop-1) *4  +  Length-5; 

{  Calling  the  BIOS  service  to  initialize  the  port 
*  clears  #  all  UART  interrupts  ) 

RS232_Init  (  COM,  Params  ); 

Delay  (  PBRG_Settle  );  {  delay  to  allow  UART  to  settle  ) 

Port  C  LCR  3~;= 

Port  C  LCR  3  AND  (  NOT  LCR_DLAB  ); 

{  Set  our  interrupt  handler  > 

CASE  Com  OF 

1  :  SetIntVec  (  C0M1_INTR,  Addr(  RS232_1SR1  )); 

2  ;  SetIntVec  (  COM2I1NTR,  Addr (  RS232_ISR2  )); 

END; 

ResetChip  (  Com  ); 

Disableinterrupts; 

Establish  (  COM  ); 

Enable  '  Comport  C  Current_Com  l.IRQNo  ); 

{  Interrupt  on  receive  only  ) 

Port  [  Regs  C  COM  3.IER  3  ;=  IER_RDA; 

C  Cleai"  the  port  bu'f-fer  ) 

RS_Bu-f_Heed  C  Com  3  :=0: 

R3_Bu-f_Tail  C  Com  3  :=0; 

C  Reset  any  stray  interrupts  in  the  PIC  ) 

SendEOI  (  Comport  C  Current_Com  3.IRQNo  ); 

Enableinterrupts; 

Comport  C  Current_Com  3. Speed  :=  Speed; 

Comport  [  Cu.rrent_Com  3. Parity  :=  Parity; 

Comport  [  Current_Com  3. Stop  :=  Stop; 

Comport  C  Current_Com  3. Length  ;=  Length; 

Comport  [  Current_Com  3. Installed  ;=  TRUE; 

END; 

End;  Co-f  Initialize) 

(*  Reprinted  with,  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1987  Sybex,  Inc.  All  rights  reserved. 

Modified  after  "Re::  TP4.0  Aux  Problem"  by  Naoto  Kimura,  reprinted 
by  permission  of  the  author. 

Modified  after  "Serial  Unit  in  TP4"  by  Reino  de  Boer,  reprinted  by 
permission  of  the  author.  Copyright  1987  Reino  de  Boer.  All 
rights  reserved. 

Continue  Edwards  Excerpt  ##«■*♦«••***«■#*•»#**■**#*) 
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(♦*♦#*■***♦♦♦♦***♦*#♦♦  Continue  Edwards  Excerpt  **-»******»**-i(-)nnnnnt*) 
CONST 

ExitPtr  :  pointer  =  NIL; 

OldlntVecl  ;  pointer  =  NIL; 

01dIntVec2  ;  pointer  =  NIL; 

01d_IMR  ;  byte  =  0; 

01d_IERl  :  byte  =  0; 

01d_IER2  ;  byte  =  0; 

Procedure  RS_Cleanup; 

CThis  procedure  should  be  called  on  exit  to  disable  interrupts  on  the 
RS232  port  and  reset  everything  to  its  de-fault  state. 


Begin 

Comport  C  Current_Com  3. Installed  ;=  FALSE; 

ResetChip  (  Current_CQm  ); 

End;  -Cof  Cleanup} 

(*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Syhex ,  Inc. 
Copyright  19S7  Sybex ,  Inc.  All  rights  reserved. 

Modified  afte*-  "Re;:  Tp4.0  Aux  Problem"  by  Naoto  Kimura,  reprinted 
by  permission  of  the  author. 

Modified  after  "Serial  Unit  in  TP4"  by  Reino  de  Boer,  reprinted  by 
permission  of  the  author.  Copyright  1987  Reino  de  Boer.  All 
rights  reserved. 

Continue  Edwards  Excerpt  **♦*♦*#****«•**«**«•♦♦) 
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(It*******************  Continue  Edwards  Excerpt  *#*#**##«•»***♦**■«■*#*) 

(*  This  is  the  error  handler  -for  Datacomm  *) 

(****♦*♦#*****♦♦♦*♦********»#*  Start  Swan  Excerpt  ♦•»*♦«•*♦♦**#**■#**■«■♦*) 
CONST 

HexDigit  :  ARRAY  CO. . 153  OF  Char  =  '0123456789ABCDEF ' ; 

TYPE 

string2  =  stringC23; 
string4  =  stringC43; 

PtrRec  =  RECORD 

OFs,  Seg  :  word; 

END; 

FUNCTION  HexByte  (B  :  Byte  )  :  string2; 

BEGIN 

HexByte  ;=  HexDigit  CB  SHR  43  +  HexDigitCB  AND  iF3; 

END; 

FUNCTION  Hex  (I  :  Word)  :  string4; 

BEGIN 

Hex  ;=  HexByte (Hi (I) )  +  HexByte (Lo (I )) ; 

END: 

(*  Reprinted  -from  Mastering  Turbo  Pascal  Files  By  Tom  Swan,  by 

permission  o-f  Howard  W.  Sams  and  Company.  Copyright  1987  Howard  W. 
Sams  and  Company.  All  rights  reserved. 

♦  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦•in*-*****-*#**#*  End  Swan  Excerpt  **♦»##**«•****♦**♦***♦) 

PROCEDURE  Datacomm_ErrDr;  {$F-} 

■C  This  Is  the  Exit  Procedure  -for  *  this  unit  ' 

VAR  index  :  byte; 

BEGIN 

IF  (Ex-tCode  <>  0)  OR  (ErrorAddr  <>  NIL)  THEN 
BEGIN 

Assign  (Output, 

Rewrite (OutPut ) ; 

(<^W'^iteln  (#7)  ;  ♦) 

IF  ExitCode  =  tFF  THEN 
Writeln ( 'USER  BREAK') 

ELSE 

f*  Reprinted  with  extensive  modifications  -from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  bv  permission  of  Sybex ,  Inc. 
Copyright  19S7  Sybex,  Inc.  All  rights  reserved. 

Modified  after  "Re::  TP4.0  Aux  Problem"  by  Naotc  Kimura.  reprinted 
bv  oermissior  of  the  author. 

Continue  Edwards  '"xcerpt 


(**♦**♦*♦**♦*■»***♦»**  Continue  Edwards  Excerpt  «■♦♦**♦**•»♦*#********) 
BEGIN 

Writeln  ('Critical  Error  #  HEX (Exi tCode) ) ; 

Write ('AT  PROGRAM  LOCATION'); 

Writeln  (HEX  (seg  (ErrorAddr'^ ) Hex  (o-f  s  (ErrorAddr^  ) ) ) ; 
END; 

END; 

Disableinterrupts; 

C  Restore  the  previous  interrupt  vectors  } 

SetIntVec  (  C0M1_INTR,  OldlntVecl  ); 

SetlntVec  (  C0M2_INTR,  01dIntVec2  ); 

Enable Interrupts; 

■[  Shut  down  the  ports  > 

FOR  index  :=  COMl  TO  COM2  DO  BEGIN 

Portu  Regs  C  index  ].LCR]:=PortC  Regs  C  index  3.LCR3  and  #7F; 
Porte  Regs  C  index  3.IER];=0; 

Portr  Regs  C  index  3.MCR3:=0; 

END; 

{  Restore  the  PIC  interrupt  mask  i 
PO'-t  L  IMR  3  :=  01d_IMR; 

ExitPi'oc  ;=  ExitPtr; 

END;  (  Dat3com/ri_Error  3 

BEGIN  '  Unit  Initialization  3 
CheckBf-eak  :=  TRUE; 

C  Save  the  existing  exit  procedure  -for  this  unit  3 
ExitPtr  ;=  ExitProc; 

I  Save  the  existing  interrupt  mask  Tor  the  PIC  3 
aid_IMR  :=  Port  C  IMR  3; 

i  Save  the  current  serial  port  interrupt  vectors  3 
GetIntVec  (  C0M1_INTR,  OldlntVecl); 

BetlntVec  (  C0M2_INTR,  □ldIntVec2); 

{  Clear  the  receive  butters  3 
R£_But_Head  C  COMl  3  :=  0; 

RS~But_Head  [  COMl  3  ;=  0; 

RS~But_Tail  [  COM2  3  :=  0; 

RS_But_Tail  [  COM2  3  ;=  0; 

'  link  in  our  unit  exit  procedure  to  undo  all  ot  the  above  on 
program  termination  3 
ExitProc  :=  Addr (Datacomm_error ) ; 

{  Set  up  both  ports  to  initial  values  3 


(♦  Reprinted  with  extensive  moditicati ons  trom  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  ct  Sybex ,  Inc. 
Copyright  1987  Sybex,  Inc.  All  rights  reserved. 

Moditied  atten  "Re::  TP4.0  Aux  Problem"  by  Naoto  Kimura,  reprinted 
by  permission  ot  the  author. 

Continue  Edwards  Excerpt  ♦♦♦♦♦♦in*-*****##**##*) 
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(♦«•**##♦****«•*******♦  Continue  Edwards  Excerpt  ***♦*»♦*•»**#**«•■)(•*♦♦*) 
FOR  index  :=  COHl  TO  COM2  DO 
WITH  Comport [index 3  DO  BEGIN 
Stop  :=  1; 

Length  ;=  B; 

Alias  ; =  '  ' ; 

Speed  ;=  B4800; 

Parity  ;=  None; 

IRQNo  ;=  IRQLine  [  index  3; 

Installed  ;=  FALSE; 
end;  {  COMPORT  initial izaton  > 

END. 


(♦  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex, ,  Inc. 
Copyright  19ST  Sybex,  Inc.  All  rights  reserved. 

Modifications  reprinted  from  "Serial  Unit  in  TP4"  by  Reino  de  Boer, 
by  permissior,  of  the  author.  Copyright  19B7  Reino  de  Boer.  All 
rights  reserved. 

; End  Edwards  Excerpt  *»***#*♦**»■»•♦*»#*♦#*♦♦♦) 
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SOURCE  LISTING  FOR  UNIT  DIRECTOR 

} 

(«■*♦***♦**«■♦♦■******♦*«■**#♦■»*»******♦*■»*#♦»♦*********♦♦***«•**♦*****♦♦) 


DIRECTOR. PAS 

**•♦*) 

(**♦«•♦**«*♦**♦♦* 

Turbo  Pascal  4.0  unit  to  read  a  directory 

*********) 

( #♦«•*•«•#**«•#■*•*#»* 

and  display  it 

****■**♦*♦) 

(*************** 

Date;  28  July  1989,  10:06:53  ME2 

♦■*♦*♦***♦) 

( 

From:  Christian  Boettger 

(**#*#*♦**#*#**•* 

+49  (0)531  3915113  /  12010506  at  DBSTUl 

♦**»#*#♦#) 

(* 

*) 

(* 

Modified  slightly  to  change  presentation 

*) 

(* 

for  the  window  manager 

*) 

(# 

and  to  use  the  error  reporting  capability 

*) 

(* 

of  UNIT  ErrorCod 

♦  ) 

(* 

by  Nelson  Ard 

*) 

(* 

Last  modification  Sep  89 

*) 

(**#****»♦♦♦**♦#♦♦**»*♦**■»■■«■♦**•»■•«■****•********♦*•»■♦#*■*♦**#♦#«■*■♦***♦♦»*♦) 

unit  director; 

1  nter-f  ace 

uses  dos,crt,  ErrorCod;  CErrorCod  added? 

procedure  ViewDir (HatchPtrn  :  string;  FromLine,  ToLine  :  integer); 
procedure  ShowDir (MatchPtrn  :  string;  FromLine,  ToLine  ;  integer; 
var  error  :  integer); 

(*  Reprinted  from'  "Turbo  Pascal  4.0  unit  to  read  a  directory  and 

display  it”  by  Dipl.  Phys.  Christian  Boettger,  by  permission  of  the 
author . 

***********************  Continue  Boettger  Excerpt  *♦#****»****♦*«■#»***) 
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(•*•»•**♦***■»*♦****#♦***•*  Continue  Boettger  Excerpt  *♦**«*#**##♦**♦♦♦♦#*) 
Implementation 

procedure  StandBy; 

var  x,y  :  integer; 

muell  :  char; 
begin 

x;=whereX;  y:=  WhereY; 

HighVideo;' 

■writeC'Hit  any  key  to  continue  '); 

NormVideo; 

repeat  until  keypressed; 
muell  ;=  ReadKey; 

write('  '); 

GotoXY  (>:  ,y) ; 
end; 


i*  Reprinted  -from  "Turbo  Pascal  4.0  unit  to  read  a  directory  and 

display  it"  by  Dipl.  Phys.  Christian  Boettger,  by  permission  o-f  the 
author . 

-Hr****####*##**-*-*####*#**#  End  Boettaer  Excerpt 
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(**«•«•♦•***«•*****♦****■)(•*  start  Verbraeck  Excerpt  #*■»■*«■*♦*♦##♦#♦#*♦♦♦#) 
procedure  ViewDir (MatchPtrn  :  string;  FromLine,  ToLine  :  integer); 
(*•»•♦*#♦•»♦********♦♦*****•»*»***♦**«••**♦*■»#*♦#*♦**#«■***♦♦*♦#•*♦*****##■**« 


Ir.  Alexander  Verbraeck  e-mail: 

Delft  University  of  Technology  winfaveQhdetudl.bitnet 

Department  of  Information  Systems  winfave@dutrun.uucp 

PO  Box  356,  2600  AJ  The  Netherlands 


♦♦♦***«■*«•***#*♦**«■■*****«•****»*«•*****«■*#♦*♦*»*♦«■***********»**♦****♦*) 

var 

Dirinfo  :  SearchRec; 

Line  , 

Position  :  integer; 


begin 

LowVi deo; 

GntoXYd  jFrodiLine) ;  ClrEol; 

Line:=FrDmLine;  Po5ition:=l; 

Findrirst  (MatchPtrn  , 1:37, Dir  Inf  o) ; 
if  DosErrorOO  then 

uritelni'***  NO  FILES  FOUND  ♦**') 
el  se 

while  (DosErfor=0)  and  (Line  <  ToLine  )  do 
begin 

GotoXY (Posit: on, Line) ; 

if  Dirlnf o. Attr=|:l0  then  HighVideo; 

write(Dirlrifc.Name) ; 

LowVi deo; 

Position: =Pd5i t i on+16; 
if  Position>65  then 
begin 

Line: =Line+l : 

Posit i on: =1 ; 
end; 

FindNext (Dirlnf o) ; 
end; 

NormVideo; 

end; 


<*  This  portion  reprinted  from  "Turbo  Pascal  4.0  unit  to  read  a 

directory  and  display  it"  by  Dipl.  Phys.  Christian  Boettger,  with 
the  permission  of  Ir.  Alexander  Verbraeck,  the  original  author. 

End  Verbi^aeck  Excerpt 
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(**♦*♦♦♦♦*♦♦##**#♦**•»#  start  Boettger  Excerpt  «■**##*♦********♦*♦**) 


procedure  ShowDir (MatchPtrn  :  string;  FromLine,  ToLine  ;  integer; 
var  error  ;  integer); 

(*#»»**#»*■*****■«•♦*■*****#*****«■«•*****##*»♦*♦*«■«•******■***•**«•***«•«•«■♦***# 
Christian  Boettger  phone:  <+49)  <0)531/391-5113 

mail:  Institut  -fuer  Metal Iphysik  und  Nukleare  Festkoerperphysik, 

(room  -lfe7/-168) ,  Technische  Uni versitaet  Braunschweig, 

Mendel ssohnstrasse  3,  D-3300  Braunschweig,  land 
Bundesrepubl i k  Deutschland  (West  Bermany  /  FRG  /  RFA) 

EARN:  I2010506@DBSTL'1,BITNET  InterNet:  boettger©  jul  ian.  uwo.  CA 

UseNet:  boettger© jul i an. UUCP 

UUCP  /  UseNet: 

(whereever ) ! uunet ! watmath ! Julian ! boettger 
(whereever) ! uunet !boettger@hydra.uwo.CA 
(whereever) ! uunet ! me vax ! unido ! i2010506@DBSTUl . BITNET 
****♦*♦*♦♦*♦♦♦*»*♦■»*«■♦♦*******«■*****•***«■*♦*■♦*•*♦♦**»*•*■♦****♦♦***♦♦*♦♦♦) 
var  Dir  Info  :  SearchRec; 
start ,  i , 

line, ml  :  integer; 


procedure  Wr i teEntry (Di r Inf o 
var  DT  :  DateTime; 

attribut  ;  strina; 


SearchRec;  line  ;  integer); 


procedure 

begin 

case 


GetAttribut  (attr  :  byte;  var  attribut  :  string) 
attr  of 

Readonly  :  attribut  :=  'Readonly'; 

Hidden  :  attribut  ;=  'Hidden'; 

SysFile  ;  attribut  :=  'SysFile'; 

VolumelD  ;  attribut  ;=  'VolumelD'; 

Directory  ;  attribut  :=  'Directory'; 

Archive  :  attribut  :=  'Archive'; 

Any’^'ile  :  attribut  :=  'AnyFile'; 

else  begin 

Str (attr , attribut) ; 
attribut  :=  'Attr  =  '  +  attribut; 
end; 

end; 


end; 


(*  Reprinted  from  "Turbo  Pascal  4.0  unit  to  read  a  directory  and 

display  it"  by  Dipl.  Phys.  Christian  Boettger,  by  permission  of  the 
author . 

♦*•**«■♦#*#♦*#**#«•#*###*  Continue  Boettger  Excerpt  ********************) 


(♦**♦#****#♦**»*♦*♦*♦*  Continue  Boettger  Excerpt  **■»#»**♦*■**♦#**##**#) 
begin  (*of  WriteEntry*) 
with  Dirin-fo  do 
begin 

UnPackTime (Time,dt) ; 

GetAttribut (attr ,attribut) ; 

GotoXY (1 , 1 ine) ;  ClrEol; 

IF  attr  =  Directory  THEN  HighVideo; 
write  (  Name  ); 

GoToXY  (  13,  line  ); 

IF  attr  =  Directory  THEN 
Write  (  '  <DIR>') 

ELSE  Write  (  size  :  8  ); 

GotoXy  (  24,  line  ); 

{Write  (Name; 12,'  ',Size:8,'  ');  } 

with  dt  do 
begin 

write (day: 2, , month: 2, , year: 4, '  ' ) ; 

write (hour: 2, ' : ' ,min:2, ' : ' ,sec: 2, '  ' ) ; 

end; 

writeln('  ',attribut); 

LowVideo; 

end; 

end;  <*ci  WriteEntry*) 

begin  (♦of  ShowDir*) 

Ml  :=  TcLine  -  FromLine; 
start  :=  WhereY+1; 

FindFirst  (MatchPtrn ,  AnyFile,  DirIn-fo); 
case  DOSError  o-f 
0  :  begin 

WriteEntry(DirIn-fo, start) ; 
line  ;=  start; 
while  D0SError=0  do 
begin 

PindNext (Dir  Into) ; 

Inc (line) ; 

i-f  line>Ml  then  begin 
StandBy; 
line  ;=  start; 

ClrScr; 

end; 

i-f  Do5Error=0  then  WriteEntry  (Dir  Inf  o,  1  ine) 


(*  Reprinted  from  "Turbo  Pascal  4.0  unit  to  read  a  directory  and 

display  it"  by  Dipl.  Phys.  Christian  Boettger,  by  permission  of  the 
authc' . 

*##**»#-in<-»**-»-***»*#***  Continue  Boettqer  Excerpt 
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(***♦***#****■*■»**«•»•**♦  Continue  Boettger  Excerpt  •*#**♦**********♦*«*■») 

else  begin 

GotoXYd  ,line) ; 

ClrEol; 

writeln; 

ClrEol; 

writeln  <Error_Code  C  DOSError  1!'); 
writeln; 

ClrEol; 

GotoXY(l,WhereY); 

end; 

end; 

error  ; =0; 
end; 

2  :  begin 

GotoXYd  , start) ; 

writeln (Error _Code  C  DOSError  ],'  II'); 
writeln < 'Directory  not  found! I'); 
error  :=  DOSError; 
end; 

18  :  begin 

GotoXYd  , start) ; 

wri teln (Error_Code  [  DOSError  II'); 

writeln ( 

'No  Entries  in  directory  that  match  pattern  II'); 
error  ;=  DOSERROR; 
end; 

else  begin 

GotoXY ( 1 , start) ; 

writeln (Error_Code  C  DOSError  II'); 

error  :=  DOSError; 
end; 

end; 

end;  (*of  ShowDir*) 


(«■  Reprinted  from  "Turbo  Pascal  4.0  unit  to  read  a  directory  and 

display  it"  by  Dipl.  Phys.  Christian  Boettger,  by  permission  of  the 
author . 

###*^nnf###*-)nnt»*******  End  Boettger  Excerpt  *********^^*-******-***) 


APPENDIX  R 

SOURCE  LISTING  FOR  UNIT  ERRORCOO 

T 

J 

(******************************************************«■************) 


{****  ERRQRCQD.PAS  *♦*♦) 
(»**»  This  unit  maps  MS-DOS  error  codes  returned  by  the  *♦**) 
(«•###  operating  system  to  strings  to  give  the  operator  a  ****) 
(»**♦  human  readable  response.  ■»*»*) 
(♦**♦  *«■**) 
{****  Reference:  MS-DOS  Version  3  Programmer's  Utility  Pack  *■*♦*) 
(***♦  MS-DOS  Reference  Guide  Volume  1  *»*») 
(****  1986,  pp.  4.86-4.88,  4.254-4.257.  ♦♦##) 
(*♦##  ****) 
(*♦**  Developed  by  Nelson  Ard 

(***#  ****) 
{****  Last  modification  Sep  89  *♦**) 


(*♦***♦♦■*#**♦**■»♦*****♦#■»■*»*********«•*»♦«•♦♦♦*♦**■♦♦**■*♦«■**♦♦»*♦♦*•*♦♦*) 

UNIT  ErrorCod; 

INTERFACE 
USES  Dos; 

CONST  Error.Code  :  ARRAY  CO.. 883  OF 
stringC40]  =  ('No  errors', 

'Invalid  function  code', 

'File  not  found ' , 

'Path  not  found', 

'No  file  handles  left', 

'Access  denied ' , 

'Invalid  handle', 

'Memory  control  blocks  destroyed', 

'Insufficient  memory'. 

Invalid  memory  block  address', 

'Invalid  environment', 

' Inval i d  format ' , 

'Invalid  access  code', 

' Inval I d  date  ' , 

'RESERVED  error  code', 

'  Inval i d  drive ' , 

'Attempt  to  remove  the  current  directory', 

'Not  same  device', 

'No  more  files', 

'Disi:  15  write-protected', 

'Bad  disf  unit'. 
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'Drive  not  ready’, 

'Invalid  disk  command', 

'CRC  error ' , 

'Invalid  length  (disk  operation) 
'Seek  error', 

'Not  an  MS-DOS  disk', 

'Sector  not  ■found', 

■  Out  of  paper ' , 

'Write  fault ' , 

'Read  fault', 

'General  failure', 

'Sharing  violation', 

'Lock  violation’, 

'Wrong  disk', 

'FOB  unavailable', 

'RESERVED  error  code', 

'RESERVED  error  code', 

'RESERVED  error  code', 

'RESERVED  error  code', 

'RESERVED  error  code', 

'RESERVED  error  code', 

'RESERVED  error  code', 

'RESERVED  error  code', 

'RESERVED  error  code', 

'RESERVED  error  code', 

RESERVED  er^-or  code', 

'RESERVED  error  code', 

'RESERVED  error  code', 

'RESERVED  error  code', 

'Network  request  not  supported', 
'Remote  computer  not  listening', 
'Duplicate  name  on  network', 
'Network  name  not  found', 
'Network  busy', 

'Network  device  no  longer  exists 
'Net  BIOS  command  limit  exceeded 
'Network  adapter  hardware  error' 
'Incorrect  response  from  network 
'Unexpected  network  error', 
'Incompatible  remote  adapt', 
'Print  queue  full', 

'Oueue  not  f ul 1 ' , 

'Not  enough  space  for  print  file 
'Network  name  was  deleted', 
'Access  denied ' , 

'Network  device  type  incorrect', 
'Network  name  not  found', 
'Network:  name  limit  exceeded', 
'Net  BIOS  session  time  exceeded' 
'"emporeir i  1  y  paused', 

'Network  request  not  accepted', 
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'Print  or  disk  redirection  is  paused', 
'RESERVED  error  code', 

'RESERVED  error  code', 

'RESERVED  error  code', 

'RESERVED  error  code', 

'RESERVED  error  code', 

RESERVED  error  code', 

'RESERVED  error  code', 

'File  exits', 

'Duplicate  File  Control  Block', 

'Cannot  make', 

'Interrupt  24  failure', 

'Out  of  structures', 

'Already  assigned', 

'Invalid  password', 

'Invalid  parameter', 

'Net  write  fault ' ) ; 

CONST  Error_Cla=s  ;  ARRAY  [1..12]  OF  stringC40]  = 

('Out  of  a  resource', 

'Temporary  situation', 

'Permission  problem', 

'Internal  error  in  system  software', 
'Hardware  failure', 

'System  software  failure', 

'Application  program  error', 

'File  or  item  not  found', 

'File  or  item  of  invalid  format', 

'"ile  or  item  interlocked', 

'Media  failure  -  storage  medium', 
'Unknown  error'); 

RecQmmended_Erro^_Action  :  ARRAY  Cl.. 7]  OF  String[40] 
('Retry,  then  prompt  user', 

■Retry  after  a  pause', 

'Reprompt  user  to  reenter'. 

Terminate  with  clean  up', 

""erminete  immediately', 

'Observe  only', 

'Retry  after  correcting  fault'); 

Error_Loc-!s  :  ARRAY  Cl.. 53  OF  StringC40]  = 

( ' Unknown ' , 

'Random  Access  block  device', 

'Related  to  a  network', 

'Related  to  serial  access  device', 

'Rel ated  to  RAM ' ) ; 
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PROCEDURE  Extendecl_Error_Code  (VAR  Error_Code  ;  INTEGER; 

VAR  Error_Class  :  Byte; 

VAR  Error_Locu5  :  Byte); 


{  Following  an  error  code  returned  by  an  MS-DOS  function  call  or 
I/O  function,  this  may  be  called  for  amplification  on  the 
error  ]• 


IMPLEMENTATION 


Var  index  :  integer; 

PROCEDURE  E>!tended_Error_Code  (VAR  Error_Code  :  INTEGER; 

VAR  Error_Clas5  :  Byte; 

VAR  Error_Locus  :  Byte) ; 


Var  Regs  :  Registers; 
BEGIN 

Regs. AH  ;=  #59; 

Regs.BX  :=  0; 

Intr($21,  Regs); 
ErrGr_Code  ;=  Regs. AX; 
Erro'"_Class  :=  Regs.BH; 
E''ro-_Locus  s=  Regs.CH; 
END; 

BEGIN 

END. 
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APPENDIX  S 


SOURCE  LISTING  FOR  UNIT  GENERAL 


} 


(**  GENERAL. PAS  **) 
(**  This  is  a  library  of  general  purpose  routines  to  augment  the  ♦*) 
(**  features  of  Turbo  Pascal  4.0.  This  UNIT  requires  the  standard**) 
(**  units  CRT  and  DOS  supplied  with  the  Turbo  Pascal  4.0  compiler  **) 
(**  in  order  to  compile.  **) 
(#♦  *♦) 
(**  Reference;  Edwards,  C.  C. ,  Advanced  Techniques  in  **) 
(**  Turbo  Pascal,  pp.  66  -  73,  Sybe;: ,  Inc.,  1987  **) 

**) 

(**  Modified  from  a  Turbo  Pascal  3.0  include  file  to  a  **) 
(**  Turbo  Pascal  4.0  UNIT  by  Nelson  Ard  **) 
(#♦  ##) 
(**  Last  Modification:  Sep  89  **) 


(***♦■»■#*■♦♦***♦♦#■»*****«■*♦  Start  Edwards  Excerpt  **♦♦**♦**#♦**♦**♦*) 


UNIT  General: 
INTERFACE 


USEE 


Dos, 

Crt; 


Lonc_Strir,g  =  StringC255j; 

He';_Typo  =  StringCCl; 

Cur sor_Type= (Cursor _Smal 1 ,Cursor_Large,Cur5Dr_Invi si bl e) ; 


(*  Reprinted  with  some  modification  from  Advanced  Techniques  in  Turbo 
Pascal  bv  Charles  Edwards,  by  permission  of  Sybe;:,  Inc.  Copyright 
198"  Sybe:,  Inc.  All  rights  reserved. 

Continue  Edwards  Excerpt 
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Continue  Edwards  Excerpt  ♦*******♦**•«•*♦**»♦♦♦) 


Procedure  FillWord(Var  V;  Num, Value: integer ) ; 

(♦This  procedure  is  similar  to  the  Turbo  procedure  FillChar,  except 
that  it  -fills  the  variable  with  a  16  bit  word  value  rather  than  an 
8  bit  character. ♦) 

Procedure  Exchange(Var  S,D;  L: Integer); 

(♦This  procedure  is  a  -fast  machine  languge  routine  to  exchange  the 
contents  o-f  two  variables.  No  test  is  made  concerning  the 
compatibility  o-f  the  variables.  That  is  le-ft  to  the  programmer .  ♦) 

Procedure  Beep (Freq: Integer ) ; 

(♦This  procedure  produces  a  tone  -for  1/4  second^) 

Function  Max (X ,Y: Integer) : Integer; 

'♦M-f:;  returns  the  larger  o-f  two  integers^) 

Function  Min  O'  ,Y: Integer) : Integer; 

(♦Ma.-  returns  the  smaller  o-f  two  integers*) 

Procedure  Cursor _Si  ze  (Si  ze:  Curso-'_Type;  Mono;  Bool  ean) ; 

(♦This  procedure  changes  the  cursor  into  either  an  underline  or  a 
bloCK  curs  O’" 

Input:  Size  =  Cur5or_Small  creates  an  underline  cursor 
Cursor_Large  creates  a  bi-ock  cursor 
Cu-so''_Invi5ible  c-'eates  an  invisible  cursor 

More  =  T-ue  -for  a  monochrome  screen 

“^alse  for  a  colc-r/graphics  card 

*  ‘ 

Fjnr t : or  Get_T i me: Long_Str i ng; 

(♦"’’his  procedcc'e  returns  the  time  in  the  form  HH:MM:SS  xM*) 


<■*  Reprinted  with  some  modification  from  Advanced  Techniques  in  Turbo 
Fascai  by  Charles  Edwards,  by  permission  of  5ybe>  ,  Inc.  Copyright 
Sybe  ,  Inc.  All  rights  rese-'vec. 


IMPLEMENTATION 


(#**«**♦**•***♦■»•*♦***«  Continue  Edwards  Excerpt  *•«■**#♦»»♦***»*#*«■•)(•♦♦) 
Procedure  FillWord(Var  V;  Num, Value: Integer ) ; 

(♦This  procedure  is  similar  to  the  Turbo  procedure  FillChar,  except 
that  it  -fills  the  variable  with  a  16  bit  word  value  rather  than  an 
8  bit  character. 


Input:  V:  The  variable  which  is  to  be  -filled 

Num:  The  number  of  words  to  -full  with  the  value 


Value;  The  16  bit  word 

*) 

Begin 

lnline(tC4/tEE/V 

/tBB/taE/Num 
./-f8B/Te6/ Value 
/tfC 

/■$F2/$(kB 

\ . 

'  % 

End;  (-^o-f  FillWard-») 


to  be  stored  in  V 


(*LES  DI,VCBP]*) 

(♦MOV  CX,CNum+BP]*) 
(♦MOV  AX,[Value+BP]^) 
(♦CLD^) 

(♦REPNZ  STOSW^) 


Procedure  Exchange (Var  S,D;  L: Integer); 

(♦This  procedure  is  a  -fast  machine  languge  routine  to  exchange  the 
contents  o-f  two  variables.  No  test  is  made  concerning  the 
compatifai 1 ity  of  the  variables.  That  is  left  to  the  programmer. 


Input:  S.D:  The  variables  to  be  exchanged 


L:  The  number  of  bytes 

*) 

Begin 

Ini ine (TIE 

/fC5/TB6/S 
/TC4.-TBE/D 
/tSB/T8E/L 
/TFC 

/T26/fSA'f05 
/■T6t'-T04 
/fit. 

/fAA 

/tE2/fF’ 

/fl- 
) ; 

End;  (♦o-^  E-'Change*) 


to  exchange 


(♦PUSH  DS^) 

(♦LDS  SI,SCBP]^) 

(♦LES  DI,DCBP]^) 

(♦MOV  CX,CL+BP3*) 
(♦CLD^) 

(♦L;  MOV  AL,ES: CDIl*) 
(♦EXCH  [SI],AL*) 

(♦INC  SI^) 

(♦STOSB^) 

(♦LOOP  !.♦) 

(♦POP  DC») 


'♦  Reprinted  with  some  modification  from  Advanced  Techniques  in  Turbo 
Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc.  Copyright 
1987  Sybe  ,  Inc.  All  rights  reserved. 

Continue  Edwards  E'-icerpt 
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(**♦*♦***♦*#*♦♦**♦♦*#  Continue  Edwards  Excerpt  *•**♦**♦******♦*♦♦*♦*) 
Procedure  Beep (Freq; Integer ) ; 

(♦This  procedure  produces  a  tone  -for  1/4  second*) 

Begin 

NoSound;  (*Reset  -flag*) 

Sound (Freq) ; 

Del  ay (250) ; 

Nosound; 

End;  (*D-f  Beep*) 

Function  Max (X ,Y; Integer) ; Integer; 

(*Max  returns  the  larger  o-f  two  integers*) 

Begin 

1-f  X  <  Y  then 
Max ; =Y 
else 

Max : =X ; 

End;  (*o-f  Max*) 

Function  Min (X,Y: Integer) : Integer; 

(*Max  returns  the  smaller  o-f  two  integers*) 

Beg  i  n 

It  X  <  Y  then 
Min; =X 
el  se 

Min;=Y; 

End;  (*ot  Min*) 

Procedure  Cursor_Size(Si2e:Cur5or_Type;  Mono: Bool ean ) ; 

(♦This  procedure  changes  the  cursor  into  either  an  underline  or 
a  block  cur SO" 


Input:  Size  =  Cur5or_Smail  creates  an  underline  cursor 
Cursor_Large  creates  a  block  curso" 

Cursor  Invisible  creates  an  invisible  cursor 


* ) 


Mono  =  True  -for  a  monochrome  screen 

False  -for  a  color/graphics  card 


Const 

Cursor  _Val  u.es:  Array  [0..3]  o-f  Integer  =  ( 1^0607,  t0007, -TOCOD,  $000D ) ; 
Var  Regs; Registers; 

Begin 

Regs. AX;=t0100; 

I-f  Size  =  Cursor_Invisible  then 
Regs. CX:=f 2607 


(*  Reprinted  with  some  modification  from  Advanced  Techniques  in  Turbo 
Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc.  Copyright 
Sybe  ; ,  Inc.  All  rights  reserved. 

♦♦♦****♦♦♦*♦*****♦♦#*  Continue  Edwards  Excerpt  #*♦****♦******♦##***) 
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(********************  Continue  Edwards  Excerpt  ***♦***■*##*♦•*■****■»#*) 

else 

Regs. CX: =Cursor_ Values C Or d (Mono) ♦2+Ord (Size) 1; 

Intr  (f- 10, Regs) ; 

End;  (*oi  CursQr_Size*) 

Function  Get_Time;Long_String; 

(♦This  procedure  returns  the  time  in  the  ■form  HH;MM:SS  xM*) 

Var  Regs: Registers; 

Hour , Min, Sec ,M: String C23; 

I : Byte; 

Begin 

Reg5.AH;=t2C; 

MSDos (Regs) ; 

Str (Regs. CL: 2, Min) ; 

Str (Regs. DH:2, Sec) ; 

For  I;=l  to  2  do 
Begin 

I-f  Min[n='  ■  then  Min[n:  =  ‘0'; 

If  SecCI]='  '  then  SecCI3:='0'; 

End; 

Case  Regs.CH  of 
0:  I; =12; 

13.. 23;  I ;  =Regs. CH-12; 
else  I:=Regs.CH; 

End;  (*  of  case#) 

Sti'  ( 1 :  2,  Hour)  ; 

If  HourCl]='  '  then  Hour [ 1 ] : = '0 ' ; 

If  Regs.CH  •'  12  then 
M:='AM' 
else 

M:='FM'; 

Get_Time:  =Hour-+- ' :  ■+Min+';  ■+Sec+'  '+M; 

End;  (*of  Get_Time*) 

BEGIN 

ENu. 


(*  Reprinted  with  some  modification  from  Advanced  Techniques  in  Turbo 
Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc.  Copyright 
I'f^B?  Sybe:: ,  Inc.  All  rights  reserved. 

»•»#*■»«•■»■•»■♦•■»■■»•■»■■*■♦•»■**♦•»•♦♦  Continue  Edwards  Excerpt  •*•»•■»•♦•»■»■■*■♦■»■•»•»■♦■»■♦•»♦•»■♦•»■■») 
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APPENDIX  T 


soim:e  listing  for  unit  hiscpack 

J 

(#*****##**■♦#♦♦**»#**#**■**##*******«*»■»****■«•»***♦*♦#■»****■**#♦*■»*«•♦♦■*) 


{****  MISCPACK.PAS  *♦**) 
(****  This  contains  common  data  structure  declarations  tor  **«•«•) 
(*#*#  several  units  and  a  couple  o-f  utility  routines.  ♦***) 
(#*■»•*  Derived  -from  the  include  tile  ot  the  same  name  in  the  *♦*♦) 
(♦***  reference.  ♦***) 
{****  *■»♦*) 
(•»***  Reference:  Swan,  Turbo  Pascal  Files,  1987,  pp.  14  -  26  ****) 
(*#**  Developed  by  Nelson  Ard  ♦***) 
(*■*■*♦  ***■*) 
(*■»#•»  Last  modification  Sep  89  •**♦*) 


(«"»««««- 

UNIT  Miscpack; 

[  USES  no  other  packages  > 

C  15  Jul  39  -  Added  string  128,  resporise_type  } 
C  19  Jul  89  -  Added  buffer  for  xmodm  3 
■C  11  Sep  89  -  deleted  VaI2He:-'  } 


INTERFA2E 

CONST 

(**■♦*#*♦*#**##♦#♦*##♦**  Start  Swan  Excerpt  »**■»*■»■»♦#*»#****#•»•****■)(•*♦) 

■C  String  Lengths  ]■ 

PathLen  =  65;  i  Maximum  complete  path  name  length  +11 

FileLen  =12;  {  Maximum  file  name  length  (with  extension)  1 

NameLen  =  6;  I  Maximum  file  name  length  (without  extension)  1- 

ExtnLen  =  3;  C  Maximum  file  extension  length  } 

DriveLen  =2;  C  Maximum  drive  letter  string  1 

■C  Typing  helpers  1 

NullStr  =  '';  C  No  blank:  between  the  quotes  1 

Blanl-  =  '  ';  C  A  single  blank  character  3- 

(♦  Reprinted  with  some  modification  from  Mastering  Turbo  Pascal  Files 
Bv  Tom  Swan,  by  permission  o-f  Howard  W.  Sams  and  Company.  Copyright 
19B7  Howard  W.  Sams  and  Company.  All  rights  reserved. 

Continue  Swan  Excerpt  *♦*■»*♦♦♦#♦♦■«■*♦«•*♦♦♦•»*) 


(*■»***♦■»•****♦*■********»*  Continue  Swan  Excerpt  ♦*»****♦*♦**«■***»**♦#) 


■C  Keyboard  control  code  translations  } 

KeyRight=  "D;  {  Right  arrow  } 

Key Home  =  'W;  {  Home  3 

KeyUp  =  ■^E;  C  Up  arrow  > 

KeyPgUp  =  ''R;  {  PgUp  > 

KeyLe-ft  =  "S;  {  Left  arrow  > 

Key  End  =  {End  } 

KeyDown  =  '‘X;  {  Down  arrow  } 

KeyPgDn  =  ''C;  {  PgDn  } 

Keyins  =  ■*V;  {  Ins  } 

Key  Del  =  ''6;  {Del  J 


TYPE 

{  File  and  path  name  strings  J 

Pathstring  =  String!  PathLen  3;  {  C; \TURBO\TEST. PAS  3 

Filestring  =  String!  FileLen  3;  C  TEST. PAS  3 

Namestring  =  String!  NameLen  3;  {  TEST  } 

ExtnString  =  String!  ExtnLen  3;  {  PAS  3 

Drivestring  =  String!  DriveLen  3;  {  C;  3 

{  Other  strings  3 

HexSt'-  =  String!  4  3;  {  4  -  digit  hex  strings  (FC9A)  3- 

StrSO  =  String!  80  3;  C  80-character  strings  3 

stringl2S  =  String!  128  3; 

{Miscellaneous  types  3 

Pointer  =  •"•Byte;  {  Pointer  to  memory  bytes  3- 

Char Set  =  SET  OF  CHAR;  {  Character  sets  3 


C  Added  for  Spawn,  Intrinsic  Exec  calls  3 

Re5ponse_type  =  (  strng,  file_type,  nothing  ); 

{  Added  for  Parser,  xmodm  3 
CONST 

Max block  =  1024; 

f*  Reprinted  with  some  modification  from  Mastering  Turbo  Pascal  Files 
By  Tom  Swan,  by  permission  of  Howard  W.  Sams  and  Company.  Copyright 
1967  Howard  W.  Sams  and  Company.  All  rights  reserved. 
*♦*♦*•***■»•♦■♦*♦**♦♦#■»•»#♦**  Continue  Swan  Excerpt 
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(***#«•»♦♦***♦♦»»*•»•«•*#*«■♦  Continue  Swan  Excerpt  ******♦***♦****«•#**♦♦) 


TYPE 

Buf-fer  =  ARRAY  C 1 .  . Maxblock3  OF  CHAR; 

PROCEDURE  BumpStrUp  '  VAR  s  ;  String  ); 

{  Convert  (bump)  all  chars  in  string  s  to  uppercase  1 
IMPLEMENTATION 

PROCEDURE  BumpStrUp  (VAR  s  ;  String); 

C  Convert  (bump)  all  chars  in  string  s  to  uppercase  1 
VAR 


i  : 

INTEGER;  fString  inde: 

BEGIN 

FOR 

i  ;=  1  to  Length (  s  )  : 

SCiJ  ;=  UpCase(  sCij  ) 

END; 

C  BumpStrUp  1 

BEGIN 

(Unit  initi al izaton  } 

END. 

{  UNIT  Miscpack  > 

(*  Reprinted  with  some  modification  from  Mastering  Turbo  Pascal  Files 
By  Tom  Swan,  by  permission  of  Howard  W.  Sams  and  Company.  Copyright 
19B7  Howard  W.  Sams  and  Company.  All  rights  reservec. 

♦  End  Swan  Excerpt  #»*-******«-#*******#**-) 


APPENDIX  U 


SOURCE  LISTING  FOR  UNIT  PARSER 

} 

(♦♦♦♦♦*»*•********•**♦•***♦♦»*****«•#*■*«•**♦■***»*•**#***#*»****#*■»■»**♦*#»♦) 


(**♦*  PARSER. PAS  *♦**) 
(***♦  This  is  the  unit  that  executes  all  commands  for  the  ****) 
(♦#**  Slave  computer.  ***«•) 
(»♦**  ****) 
{****  ****) 
{****  References:  Hall,  W.V. ,  "When  Turbo  Isn't  Enough,"  in  ****) 
(*♦**  Shammas,  N.C.,  The  Turbo  Pascal  Toolbook,  ****) 
(**♦•»  pp.  145  -  146,  M  ?<  T  Publishing,  Inc.,  1986.****) 
{*■***  ****) 
(****  Mefforc,  M.J.,  "Running  Programs  Painlessly  ****) 
(****  PC  Magazine,  v.  7,  16  February,  1988.  *#*♦) 
(***♦  *##«•) 
(*»**  Developed  by  Nelson  Ard  ****) 
(#■»■■*#  *♦#*) 
(*#♦*  Last  modification  Sep  89  *»**) 


(#**#*****##«■*#*•«■♦♦*♦**■***#*♦*♦«■************************************) 

UNIT  Parser; 

C  e  Nov  88  1 

C  5  June  89  -  changed  sets  to  constants! 

\  9  June  89  -added 

argv,  argc  functions 

adjusted  parsename  to  correctly  parse  long  filenames! 

■C  19  Jun  89  -  added  buf _to_5tri  ng ,  stri  ng_to_buf  !■ 

■C  20  Jun  S9  -  added  Resol ve_command  to  prepare  for  EXEC  call  ! 

■C  12  Jul  89  -  moved  Match_command ,  internal  command  constructs  to  spawn, 

added  response  construct  to  parser_main  ! 

C  4  Aug  39  -  deleted  Intrinsic  from  USES  statement  !■ 

INTERFACE 

USES  MISCF'ACf',  E’^ro'-Cod,  Spawn,  Dos; 

PROCEDURE  Parser_frain  (  Command_s  :  stringl28; 

VAR  Response  :  String  128; 

VAR  Restype  :  Response_type; 

VAR  Error_m5g  :  String  128; 

VAR  Errtype  :  Response_type; 

VAR  Prompt  :  Stringl28  ); 
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i  This  procedure  parses  an  MS-DOS  command  and  executes  it  locally 

Input:  Command_5  is  the  command  to  be  executed  with  path 

Output:  Response  is  the  output  o-f  the  program 

Restype  is  the  type  o-f  Response  (string,  file,  nothing) 

Error_Msg  is  the  error  output  of  the  program 

Errtype  is  the  type  of  Error_Msg  (string,  file,  nothing) 

Prompt  is  a  simulated  command  line  prompt  after  program 

execution 


IMPLEMENTATION 


TYPE 

argtype  =  (  opt,  other  ); 

arg_rec  =  RECORD 

arg_type 

arg_length 

arg_index' 

END; 

argarray  =  ARRAY  CO.. 9]  OF 


SETOFCHAR  = 

set  of  char; 

command_buf f er  =  ARRAY  Cl 

CONST 

SF'ACE  = 

< 

TAB 

■•■•H; 

COMMA 

SEMICOLON  = 

?  5 

COLON 

*  ^ 

PLUS 

MINUS 

5 

SLASH 

■'  \ 

BACKSLASH  = 

DOT 

•  9 

STAR 

NUL 

TILDE 

n 

Path_or_dri ve  :  SETOFCHAR 

NQde_or_dri ve  :  SETOFCHAR 

arg_sep3rator  :  SETOFCHAR 

whitespace 

:  SETOFCHAR 

opt  1  or 

:  SETOFCHAR 

Null  String  ; 

Pathstring  = 

argtype; 

byte; 

byte; 


arg_rec; 


123  OF  char; 


C  COLON,  BACKSLASH  ]; 

C  COLON  3; 

C  SPACE,  COMMA,  SEMICOLON,  PLUS,  MINUS  3 
C  SPACE,  TAB  3; 

C  SLASf;  ]; 
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VAR 

arg_array  ;  argarray; 
arg_count  ;  byte; 

Com(nancl_line  :  PathString; 
index  :  byte  ; 
count  ;  byte; 

(*  This  variable  ■for  use  **  only  **  by  argvO  *) 
arg_string  :  stringl28; 

PROCEDURE  Parse  (  Command  ;  stringl28  ); 

<  Used  by  Parser_Main  to  count  and  isolate  the  command  line 
parameters.  This  procedure  loads  argc  and  argv  3 

VAR 

index  :  byte; 

BEGIN 

arg_string  :=  Command;  Isave  a  copy  o-f  the  command' 

FOR  arg_count  ;=  0  TO  9  DO 
WITH  Arg_array  [  arg_count  3  DO  BEGIN 
arg_type  ;=  OTHER; 
arg_length  :=  0; 
arg_inde:;  0; 

END; 

index  ;=  i; 

5.-g_count  :=  0; 

REPEAT 

WHILE  (index  <  Length  (  Command  )  ) 

AND  (  Char  (  Command  [  index  3)  IN  whitespace  )  DO 

INC(inde;0  ; 

WITH  a>"g_array  [  arg_count  3  DO  BEGIN 
IF  inde.  <=  Length  (  Command  )  THEN 
CASE  Command  C  index  3  OF 

TAB,  SPACE  :  BEGIN 

END; 

SLASH  :  IF  index  <  length  (  Command  )  THEN 

BEGIN 

(♦INC  (  index  );*) 
arg_length  :=  2;  (*!*) 

arg_index  :=  index; 
arg_typ6  ;=  opt; 

INC  (  index  ); 

INC  (  index  ); 

INC  (  arg_count  ); 

END; 
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ELSE  BEGIN 

arg_inde>:  ;=  index; 
arg_type  ;=  other; 
arg_length  ;=  1; 

INC  <  index  ); 

WHILE  (  index  <=  Length  (  Command  )  )  AND 

NOT  (  Char  (Command  I  index  ])  IN  whitespace  ) 
AND  NOT  (  Char  (Command  C  index  D)  IN  option  ) 
DO  BEGIN 

INC  (  arg_length  ); 

INC  (  index  ); 

END; 

INC  (  ar g_count  ); 

END;  {BEG  INT¬ 
END  {CASE> 

END  r  WITH  > 

UNTIL  index  >=  length  (  Command  ); 

END;  {Parsel 

FUNCTION  argc  :  byte; 

{  Returns  a  count  o-f  the  number  o-f  arguements  on  the  command 
line  j 


BEGIN 

argc  ;=  arg_count; 
END; 


FUNCTION  ai-gv  (  arg_count  :  byte  )  :  stringlCB; 

{  Returns  the  arg_count'th  arguement  From  the  command 
line  > 

VAP- 

index  :  byte; 
temp  :  string  128: 


BEGIN 

temp  :=  Null  string; 

WITH  arg_array  C  arg_count  ]  DO 

FOR  index  :=  arg_index  TO  (arg_index  +  arg_length  -  1 )  DO 
temp  ;=  temp  +  arg_string  C  index  3; 
argv  :=  temp; 

END; 
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(*•*■»*■»•♦***■»•■*■*****♦***#**♦**■**  start  Hall  Excerpt  *♦**«■*■*•**•*■***♦«•****») 


PROCEDURE  ParseName  (  inName  :  PathString;  VAR  nameSpec  :  NameString; 

VAR  extnSpec  :  ExtnString; 
VAR  -fylespec  ;  Filestring; 
VAR  pathSpec  :  PathString; 
VAR  driveSpec  ;  DriveString; 
VAR  nodeSpec  :  NameString); 

{  Breaks  down  a  -filespec  into  its  component  parts  for  Parser_Main, 

Resol ve_command.  Froif'  the  Hall  referencp.  > 

VAR 

Count  :  Byte; 

DotPos  :  Byte; 

StarPos  :  Byte; 
inde:;  :  integer; 
filespec  :  pathstring; 

BEGIN 

Count  :=  Length  (  InName); 

{$V-} 

Ml scPack. BumpStrUp (  InName  ); 

■CfV+} 

IF  (InNameCCountl  IN  Path_or_dri ve)  THEN 
■C  do  nothing  > 

ELSE  BEGIN 
REf^'EAT 

Count  ; =  PRED ( Count ) ; 

UNTIL  (Count  =  0)  OR  (InNameCCountl  IN  Path_or_dr i ve)  ; 

END; 


Cl  sol  ate  Filename! 

C  Copy  (Source,  Startpos  ,  No  of  Char)  > 

fileSpec  :=  Copy  (InName,  Count  +  1,  LENGTH  (InName)  -  Count); 
DELETE  (InName,  Count  +  1,  LENGTH (InName)  -  Count);  CChop  tail  off! 
IF  (Count  >  2)  THEN 

IF  ( InName [Count ]  <>  ':')  THEN 
REPEAT 

Count  :=  PRED (Count); 

UNTIL  (InNameCCountl  IN  Node_or_Dri ve)  OR  (Count  =  0); 


(*  The  library  ParseName  appears  in  The  Turbo  Pascal  Toolbook  by  Namir 
C.  Shammas  (ed.)  and  has  been  reprinted  with  the  permission  of  the 
publisher  M  T  Books  1-800-533-4372.  Minor  modifications  by  Nelson 
A’^d . 

Continue  Hall  Excerpt  *■»##*•»♦#####*######*») 
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(♦*»**#♦***»**♦*****#***♦  Continue  Hall  Excerpt  *♦*****♦**♦♦♦♦♦♦*♦♦**) 


CASE  Count  OF 

0  ;  pathSpec  :=  InName; 

1  :  {  Syntax  Error 
ELSE  BESIN 

pathSpec  :=  Copy  (InName,  Count  +  1,  LENGTH  (InName)  -  Count); 
{Chop  tail  o-f-f} 

DELETE  (InName,  Count  +  1,  LENGTH (InName)  -  Count); 

CASE  InNameCPRED (Count) 1  OF 

COLON  ;  BEGIN 

(Chop  tail  of-fl 

DELETE  (InName,  Length  (InName)  -  1,  2); 
nodeSpec  :=  InName; 

END; 

a  . .  z  , 

'A' . .  '2  '  ;  BEGIN 

driveSpec  :=  InNameCPRED (Count ) 3  + 

DELETE  (InName,  Count  -  1,  2);  (Chop  tail  of-f? 

Count  :=  Length (InName) ; 

IF  (Count  >  2'  AND  (POSC:;',  InName)  =  Count  -  1) 
THEN  IF  LENGTH (InName)  >  lO  THEN 

nodeSpec  :=  Copy  (InName,  1,  8) 

ELSE  nodeSpec  :=  Copy  (InName,  1, 

LENGTH  (InName)  -  2) 

ELSE  C  Syntax  erro>-  in  node  part  3 
IF  Count  <>  0  THEN  ; 

END; 

ELSE  C  Syntax  Ei^rc^,  drive  net  alpha  character  3; 

END;  tCdse:- 
END ; 

END:  CCase) 

(Adjust  filename! 

DotPos  ;=  POS(  DOT,  fileSpec); 

IF  DotPos  <>  0  THEN  BEGIN 

extnSpec  ;=  COPY (f i leSpec ,  DotPos  +  1,  3); 

f*  The  library  ParseName  appears  in  The  Turbo  Pascal  Toolboof  by  Namir 
C.  Shammas  (ed.)  and  has  been  reprinted  with  the  permission  of  the 
publisher  H  ?■  T  Boo)  s  l-SOO-533-4372.  Minor  modi f  i cati one  by  Nelson 
Ard. 

Continue  Hall  Excerpt  **#*###*'**#*#*****<nf-#-) 
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(■»*♦*♦**♦*■»♦**♦**********  Continue  Hall  Excerpt  ♦♦***♦#♦«■***#♦**♦♦*♦♦) 

DELETE  (-fileSpec,  DotPos,  (LENGTH  (-f  i  leSpec )  -  DotPos)  +  l); 

END 

ELSE 

extnSpec  := 

IF  LENGTH (tileSpec)  >  8  THEN 

DELETE (fileSpec,  9,  LENGTH(f ileSpec) -8) ; 

StarPos  :=  POS(  STAR,  -fileSpec  ); 

IF  StarPos  <>  0  THEN  BEGIN 

DELETE  (-fileSpec,  StarPos,  (LENGTH  (-fileSpec) -StarPos) +1 ) ; 

FOR  Count  :=  LENGTH  (-fileSpec)  TO  7  DO 
-fileSpec:=  -fileSpec 
END; 

Namespec  :=  -filespec; 

StarPos  :=  POS  (STAR,  extnSpec); 

IF  StarPos  0  THEN  BEGIN 

DELETE  (extnSpec ,  StarPos,  (LENGTH  (-fi  1  eSpec) -StarPos) -*-1 ) ; 

FOR  Count  :=  LENGTH (extnSpec)  TO  2  DO 
extnSpec  :=  extnSpec  + 

END; 

IF  NOT"  (  extnspec  =  Null  string  )  THEN 
-fylespec  :=  Namespec  +  DOT  +  extnspec 
ELSE  -fylespec  s-  Namespec; 

END; 

(*  The  library  ParseName  appears  in  The  Turbo  Pascal  Toolbook  by  Nami' 
C.  Shammas  ^ed.)  and  has  been  reprinted  with  the  permission  o-f  the 
publisher  M  '&  T  Books  1-800-533-4372.  Minor  modi-f ications  by  Nelson 
Ard. 

♦*^(***-»*'*-«-*<nn^****-fr*-iit****#-^#*  End  Hall  Excerpt  ♦•»♦*■**##*♦*«•*#**♦«■*•**) 

1  "i -'E  C  used  by  Rescl ve_Command  and  ParsBr_Main  1 

Type_o-f_-f  1  le  =  (BAT_'^ile,  C0M_File,  EXE_File,  Directoree,  Other_File, 
Pathname  ) ; 

VAR  \  initial  iced  by  Pars0r_Main  for  resol ve_commarid  j 
pathSpec  ;  f^'athStr  i  no ; 
fileSpec  ;  fileString; 
nodeSpec , 

nameSpec  :  NameString; 
extnSpec  ;  ExtnStrinc; 
driveSpec  :  DriveString; 
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FUNCTION  Resol ve_command  (  VAR  arguement  :  PathString  )  :  Type_of_'file; 

{  The  MS-DOS  E::ec  -function  needs  a  complete  file  specification  (drive, 
path  and  filename  including  extension  to  run  a  child  process. 

Resol ve_command  examines  the  first  arguement  in  an  MS-DOS  command 
line,  arguement,  and  fills  out  the  complete  path  information  if 
needed,  then  uses  this  path  to  conduct  a  file  search  for  the 
exact  filename.  The  completed  file  specification  is  returned  to 
the  caller  along  with  the  type  (COM,  EXE,  BAT,  or  path)  for 
execution  or  directory  change  action.  The  building  blocks 
needed  to  construct  the  complete  file  specif ication  have  been 
placed  in  the  variable  immediately  above  by  ParseName.  The 
deterministic  algorithm  for  detecting  the  correct  executable  file  is 
from  (Mefford,  1988,  p.  327). 

Input;  arguement,  the  command  file  to  be  searched  for 

Output:  arguement,  adjusted  to  specify  a  complete  path 

The  function  returns  the  type  of  file  as  an  enumerated  type 


VAR 

Dirlnfo  :  SearchRec; 

resolved, 

relati ve_directory  ;  boolean; 

Dir  :  PathString; 

BEGIN 

resolved  :=  FALSE; 

GetDir  (  0,  Dir  ); 

i  lack  of  a  leading  backslash  could  mean  a  simple 
request  to  log  to  another  drive  > 

relati ve_directory  ;=  (  pathSpec  [11  <>  BACKSLASH  ); 

IF  relati ve_directory  AND  ((  Dir  [13  =  driveSpec  [11  ) 

OR  (Drivespec  =  BLANK  ))  THEN 
C  Fill  out  the  complete  path  specification  ? 
arguement  :=  Dir  +  BACKSLASH  +  arguement; 

IF  extnSpec  =  NullString  THEN  BEGIN 

C  The  command  does  not  have  a  file  extension,  could  be  a 
directory.  Search  the  now  complete  path  for  a  file 
with  the  same  name,  in  the  reverse  order  that  the 
MS-DOS  command  processor  would.  Add  the  appropriate 
extension  to  arguement  if  matched.  End  up  with  the 
file  with  precedence  to  execute.  } 
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FindFirst  (  arguement  +  '.BAT',  Archive,  DirlnFo); 

WHILE  DosError  =  0  DO 
BEGIN 

IF  Dirln-fo.attr  AND  Archive  <>  0  THEN  BEGIN 
arguement  ;=  arguement  +  '.BAT'; 
resol ve_command  :=  BAT_File; 
resolved  ;=  TRUE; 

END; 

FindNext  (DirIn-fo); 

END; 

FindFirst  (  arguement  +  '.COM',  Archive,  Dir  Info); 

WHILE  DosError  =  0  DO 
BEGIN 

IF  Dirln-fo.attr  AND  Archive  <>  0  THEN  BEGIN 
arguement  :=  arguement  +  '.COM'; 
resol ve_command  ;=  COM_File; 
resolved  :=  TRUE; 

END; 

FindNext  (Dirln-fo); 

END; 

FindFirst  (  arguement  '.EXE',  Archive,  DirIn-fo); 

WHILE  DoiError  =  0  DO 
BEGIN 

IF  Dir In-f D.  attr  AND  Archive  •<>  0  THEN  BEGIN 
arguement  :=  arguement  +  '.EXE'; 
resol ve_command  ;=  EXE_File; 
resolved  ;=  TRUE; 

END; 

FindNext  (Dir Info); 

END; 

END 

ELSE  BEGIN  -C  extension  not  NULL,  ready  to  execute  1 
IF  (extnSpec  =  'COM')  THEN  BEGIN 
Resol ve_command  :=  C0M_File; 
resolved  :=  TRUE; 

END 

ELSE  IF  (extnSpec  =  'BAT')  THEN  BEGIN 
Resol ve_command  :=  BAT_File; 
resolved  ;=  TRUE; 

END 

ELSE  IF  (extnSpec  =  'EXE')  THEN  BEGIN 
Resol ve_command  ;=  EXE_File; 
resolved  :=  TRUE; 

END 

ELSE  BEGIN 

Resol ve_command  :=  Other_file;  -C  a  path  specification  ?  1 
resolved  :=  TRUE; 

END 

END; 
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(*  changed  this  *) 

IF  NOT  resolved  THEN  BEBIN 

FindFirst  (  arguement  ,  Directory,  DirlnFo); 

WHILE  DosError  =  0  DO 
BEGIN 

IF  Dirln-fo.attr  AND  Directory  <>  0  THEN  BEGIN 
Resol ve_command  ;=  Directoree; 
resolved  ;=  TRUE; 

END: 

?^indNe>ct  (Dirln-fo); 

END; 

END; 

IF  NOT  resolved  THEN  Resol ve_command  ;=  Pathname; 
END;  CResol ve_Command} 


(.* - 

PROCEDURE  Parser_mair,  (  Command_s  :  string  128; 

VAR  Response  :  Stringl2S; 

VAR  Restype  :  Response_type; 

VAR  ErrDr_msg  :  String  128; 

VAR  Errtype  ;  Response_type; 

VAR  Prompt  ;  Stringl28  ); 

{  This  procedure  parses  a  command  line  similar  in  form  to  an 
MS-DOS  camrisriu,  and  executes  it  if  possible  on  the  local 
mac hi ne 

Input:  Comand_s  is  the  command  to  be  executed  with  path 

Output;  Response  is  the  output  of  the  program 

Restype  is  the  type  of  Response  (string,  file,  nothing) 

Errcr_M5g  is  the  error  output  of  the  program 

Errtyoe  is  the  type  of  Error_Msg  (string,  file,  nothing) 

Prompt  is  a  simulated  command  line  prompt  after  program 

execution 


CONST  Nullstring  ;  String  = 

Current_Dri ve  ;  byte  =  0;  {  used  with  ChDir  } 

VAR 

Command  :  Iriternal_Command; 
arg_count  :  byte; 
inde-  :  byte; 


Current_Dir , 

program_name  :  PathString; 

File_type  ;  Type_o-f _Fi le; 

Batch  :  boolean; 

PROCEDURE  Init_parse; 

•C  Break  the  command  line  into  parameters,  store  the  components 
o-f  the  -first  arguement  (normally  the  command  itself)  1 

VAR 

inde:-;  :  byte; 

BEGIN 

Parse  (command_s);  {  load  argc,  argv  > 

pathspec  :=  argv(O); 

filespec  :=  Nullstring; 

extnspec  :=  Nullstring; 

drivespec  :=  NullString;  -(Blank;  1!> 

nodespec  ;=  Null  string; 

-C  now  break  the  first  arguement  into  components  j 
Parsename  (  pathspec,  NameSpec,  extnSpec,  fileSpec, 
pathspec,  drivespec,  nodeSpec  ); 

END;  -C  Init_ParEe  } 

BEGIN 

Ini t_Parse; 

IF  (  Length  i  Drivespec  )  =  2  )  AND  (  argc  =  1  ) 

-C  Drive  change  only  > 

THEN  BEGIN 

command_s  :=  'CD  '  +  command_5; 

Init_Parse;  C  redo  with  added  command  1 
END; 

IF  riatch_command  (  FileSpec,  Command  )  THEN  BEGIN 
{  command  can  be  handled  by  *  this  *  program  } 

IF  argc  >=  1  THEN  BEGIN 

cmdline  :=  Null  string;  i  no  command  tail  } 

FCR  index  ;=  1  TO  (argc  -  1)  DO 

Cmdline  ;=  Cmdline  +  argv (index)  +  SPACE; 

-C  trim  trailing  space  1- 

IF  Cmdline  [  Length  (  Cmdline  )  3  =  SPACE  THEN 
Cmdline  :=  Copy  (  Cmdline,  1,  Length  (  Cmdline  )  -  1  ); 


END; 

{  process  as  a  built  in  function  > 

Process_intrinsic_command  (  Command,  cmdline.  Response 

Error_msg,  Errtype,  Prompt 


END 


Restype, 
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ELSE  BEGIN  {  prepare  for  a  child  process  > 
program_name  :=  argv(O); 

File_Type  :=  Resol ve_command  (  Program_Name  ); 

CASE  File_Type  OF 
COM.File, 

EXE_File, 

BAT_File  ;  BEGIN 

Batch  ;=  (  File_Type  =  BAT_File  ); 
cmdline  :=  NullString; 

IF  argc  >  1  THEN  FOR  index  :=  1  TO  argc  -  1  DO 
Cmdline  :=  Cmdline  +  SPACE  +  argv( index); 

Run_Local  (  Program_name,  cmdline,  Response,  Restype, 
Error_msg,  Errtype,  Prompt,  Batch  ); 

end; 

ELSE  BEGIN  {  command  did  not  parse,  notify  Master  > 

Errtype  :=  nothing; 

System.  GetDi  (  Current_Dri  ve.  Prompt  ); 

Prompt  :=  Prompt  +  '>'; 

Restype  ; =  strng; 

Response  ;=  'Slave;  syntax  error'; 

END;  ^ELSE> 

END;  -CCASEl 
END; 

END:  ■CPa'^ser  main! 

BEGIN 

END. 
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{ 


APPENDIX  V 

SOURCE  LISTING  FOR  UNIT  REDIRECT 

} 


(*♦**  REDIRECT. PAS  ***♦) 

{****  This  is  the  unit  that  accomplishes  redirection  ot  the  *«•*#) 

(**♦*  Standard  Input  and  Output  -file  handles  normally  assigned  ♦***) 
(«•***  by  the  MS-DOS  command  processor  to  -files  to  capture  the  *•»##) 
(***»  output  of  a  program  running  under  the  Slave  computer  ♦***) 

(****  control.  Variables  are  loaded  with  the  file  names  for  ****) 
(****  later  reference.  ****) 

i****  ****) 

{****  Reference:  Defenbaugh,  6.,  "Parents,  Children,  *#**) 

Redirection,  and  Piping  with  DOS  Functions  ****) 
45H  and  46H,  Programmer's  Journal,  Nov/Dec  *♦♦♦) 

1986,  pp.  22-25.  **♦*) 

(♦♦♦♦  ***♦) 

(**♦*  Developed  by  Nelson  Ard  ♦♦♦*) 

****) 

(**#*  Last  modification  Sep  89  ****) 


(#-»*###*#*-)i^#*#*#**##«-*##»*-**#**####»lH!-##*-*»»#****»#»*#**»**«.*»*»**»#) 

UNIT  Redirect; 

(♦  Modification  history 

22  Jul  89  -  Chained  ErrorNum  variables  through  Cl ose_Fi 1 e_Handl e 
cal  1 

-  Placed  two  string  variables  in  interface  section  for 
external  units  to  find  filespec  for  the  response,  error 
files  while  using  standard  TP  file  functions 
4  Aug  89  -  Absorbed  FileDecl  UNIT  as  include  file  •>*•1 


INTERFACE 

USES  Dos,  Crt,  Miscpack; 

PROCEDURE  Resto'"e_CRT_A5Si gnments; 

•C  Optional  procedure  to  replace  the  standard  files  Input  and  Output 
with  te;:tfile  drivers  in  the  CRT  unit  for  speed.  In  turns  out  that 
the  CRT  Unit  does  this  on  initialization,  but  disallows  I/O 
redirection  by  doing  so 

(Turbo  Pascal  Owner's  Handbook,  1987,  p.  377)  } 
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PROCEDURE  Init_Redirect_Unit; 

■C  Required  to  reset  I/O  to  the  MS-DOS  standard  -file  handles,  which 
may  then  be  redirected  > 

FUNCTION  Redirect_Std_Input  ;  boolean; 

{  Redirect  program  input  -from  a  prede-fined  -file  } 

FUNCTION  Redirect_Std_Output  :  boolean; 

■C  Redirect  program  output  to  a  prede-fined  file  } 

FUNCTION  Redirect_Std_Error  :  boolean; 

{  Redirect  program  error  output  to  a  predefined  file  } 

FUNCTION  Redirect_Al l_0utput  :  boolean; 

■i  Redirect  program  output  and  error  output  to  a  predefined  file  > 
FUNCTION  Restore_Std_Input  :  boolean; 

{  Restore  program  input  to  the  standard  file  handle  > 

FUNCTION  Restore_Std_Output  :  boolean; 

•C  Restore  program  output  to  the  standard  file  handle  } 

FUNCTION  Restore_Std_Error  :  boolean; 

i  Restore  program  error  output  to  the  standard  file  handle  j 
FUNCTION  Re5tore_Al 1 _0utput  :  boolean; 

C  Restore  program  output  and  error  output  to  the  standard  file  handle  I- 
VAR 

Re5pon5e_Fi 1 e, 

Error5_File  ;  PathString; 

IMPLEMENTATION 


CONST  (These  are  the  predefined  standard  and  redirected  files! 
(MS-DOS  predefines  the  following  handles! 


Stdin 

:  word 

=  0; 

(* 

File 

handle 

for 

Standard 

Input  ♦) 

StdOut 

:  word 

=  1; 

(* 

File 

handle 

for 

Standard 

Output  •») 

StdE'^r 

:  word 

= 

<* 

File 

handle 

for 

Standard 

Error  *) 

StdAu; 

:  word 

(♦ 

File 

handle 

for 

Standard 

Auxiliary  *) 

StdPrn 

:  word 

=  A; 

(* 

File 

handle 

for 

Standard 

Printer  #) 

(Redirection  takes  place  from/to  these  files! 
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Std_Output_Fi le_Temp  :  StringC2n  =  'C:\Scratch\OTPT.TMP'; 
StdIlnput_File_Temp  :  StringC2n  =  'C:\Scratch\INPT.TMP'; 
Std_Error_Fi  le_Te(np  :  String[213  =  'C:  \Scratch\Err.  TMP ' ; 


CONST  Make.Dir 

Remove_Dir 

Change_Dir 

Cr eate_Handle 

□pen_Handle 

Clo5e_Handle 

Read_Handle 

Wri te_Handle 

Delete_Entry 

Move_Ptr 

Change_Mode 

Dup_Handle 

FDup_Hsndle 

Get_Dir 

Find_First_Fi le 
Find  Next  File 


VAR 

Input_Fi le, 

Error_^i le, 

Output _P’ile  :  Text; 

Saved_Std_In , 

Savec_Std_Out , 

Seved_Std_Err , 

Red 1 r I n , 

RedirOut , 

RedirErr  :  word; 

PROCEDURE  I n i t_Redi rect_Uni t ; 

i  Optional  procedure  to  replace  the  standard  -files  Input  and  Output 
with  text-file  drivers  in  the  CRT  unit  for  speed.  In  turns  out  that 
the  CRT  Unit  does  this  on  initialization,  but  disallows  I/O 
redirection  by  doing  so 

(Turbo  Pascal  Owner's  Handbook,  1987,  p.  377)  } 

BEGIN 

Assign  (  Input,  ''  ); 

Reset  (  Input  ) ; 

Assign  f  Output,  ''  ); 

Rewrite  (  Output  ); 

END; 


e  = 

Byte  =  t3A 
Byte  =  f3B 
Byte  =  f3C 
Byte  =  f3D 
Byte  =  #3E 
Byte  =  f3F 
Byte  =  $40 
Byte  =  $41 
Byte  =  $42 
Byte  =  $43 
Byte  =  $45 
Byte  =  $46 
Byte  =  $47 
Byte  =  $4E 
Bvte  =  $4F 
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FUNCTION  Dupl icate_Handle  (  Handle  :  word; 

VAR  ErrorNum  :  word  )  :  word; 

{  Input:  Handle,  a  tile  handle  to  an  open  tile 

Output:  The  tunction  returns  a  second  tile  handle 

tor  the  same  tile.  Both  handles  use  the  same 
tile  pointer 

ErrorNum  is  returned  by  MS-DOS: 

$04  :  No  tree  handles  lett 

$06  ;  Handle  is  not  currently  open 


VAR  Regs  :  Registers; 

BEGIN 

Regs. AH  :=  Dup_Handle; 

Regs.BX  :=  Handle; 

Intr($21,  Regs); 

IF  (  Regs. Flags  AND  FCarry  )  =  0  THEN  BEGIN 
Dupl 1 cate_Handl e  :=  Regs. AX 
END 

ELSE  BEGIN 

ErrorNum  ;=  ErrorNum  +  Regs. AX; 

Dupl :cate_Handle  :=  $FF 
END 
END; 

FU-CTION  Clo5e_Fi  le_Handle  (  Handle  ;  word; 

VAR  ErrorNum  ;  word  )  :  Boolean; 

C  Input:  Handle,  e  tile  handle  to  an  open  tile 

Output;  The  tunction  returns  TRUE  it  the  operation  was  successtul 
and  the  file  closed.  All  internal  butters  are  flushed. 

It  FALSE,  an  invalid  handle  was  specified. 

ErrorNum  is  returned  by  MS-DOS: 

$06  ;  Handle  is  not  currently  open 


VAR  Regs  :  Registers; 

BEGIN 

Regs. AH  ;=  Clo5e_Handle; 

Regs.AL  ;=  $0; 

Regs.BX  :=  Handle; 
lntr($21,  Regs); 

IF  (  Regs. Flags  AND  FCarry  )  =  0  THEN  BEGIN 
Close_File_Handle  :=  TRUE 
END 
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ELSE  BEGIN 

ErrorNum  :=  ErrorNum  +  Regs. AX; 

Close  File  Handle  :=  FALSE; 

END 

END; 

PROCEDURE  Redirect_Handle  (  Handle,  Red_Handle  :  word; 

VAR  ErrorNum  :  word  ) ; 

{  Input;  Handle,  a  -file  handle  to  an  open  tile 

Red_Handle  a  file  handle  to  a  second  file 
Output:  The  file  referenced  by  Red_Handle  is  closed 
Red_Handle  now  uses  the  same  file  pointer  as 
Handle,  and  either  may  be  used  to  acces  the  file 
ErrorNum  is  returned  by  MS-DOS: 

1^04  ;  No  free  handles  left 

f06  :  Handle  is  not  currently  open 

VAR  Regs  ;  Registers; 

BEGIN 

Regs. AH  ;=  FDup_Handle; 

Regs.BX  ;=  Handle; 

Regs.CX  :=  Red_Handle; 

Intr(t21,  Regs'; 

IF  (  Regs. Flags  AND  FCarry  )  =  0  THEN  BEGIN 
END 

ELSE  BEGIN 

ErrorNum  :=  ErrorNum  +  Regs. AX; 

END 

END; 

FUNCTION  Redi rect_Std_Output  :  boolean; 

I  Redirect  program  output  to  a  predefined  file 

On  entry,  StdOut  refers  to  the  standard  output 
device  driver.  A  copy  of  StdOut  is  saved,  and 
StdOut  is  redirected  to  our  predefined  output  file 

The  function  returns  TRUE  if  successful 


VAR  ErrorNum  :  word; 

BEGIN 

ErrorNum  :=  0; 

Assign  (  Output_File,  Std_Output_Fi le_Temp  ); 
Rewrite  (  OutPut_File  ); 
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Saved_St(j_Out  :«  Dupl icate_Handle  (  StdOut,  ErrorNum  ); 
Redirect_Handle  (  TextRec(  Output_File  ). Handle,  StdOut,  ErrorNum  ); 
Redirect_Std_Output  :=  (  ErrorNum  =  0  ); 

END; 

FUNCTION  Restore_Std_Output  ;  boolean; 

{  Restore  program  output  to  the  standard  -file  handle 

On  entry,  StdOut  refers  to  our  predefined  file 
StdOut  is  rereferenced  to  the  standard  output 
device  driver 

The  function  returns  TRUE  if  successful 


VAR  ErrorNum  :  word; 

BEGIN 

Er'-orNum  :=  0; 

Redirect_Handle  (  Savecl_Std_Out ,  StdOut,  ErrorNum  ); 
IF  Cl ose_Fi 1 e_Handl e  (  Saved_Std_0ut ,  ErrorNum  )  THEN 
C$1-: 

Close  (  Dutput_File  ); 

IF  lOResult  =  0  THEN  BEGIN 

Re5ponse_Fi 1 e  :=  Std_0utput_Fi 1 e_Temp; 
Re5tcre_Std_0utput  ;=  (  ErrorNum  =  0  ; ; 

END 

E^SE  BEGIN 

Re5ponse_Fi le  :=  NullStr; 

Res  tore_Std_Clutput  :=  FALSE: 

END; 

C$I  +  j 
END; 

RUNCTION  Redirect_5td_Input  ;  boclean; 

C  Redirect  program  input  from  a  pi-edefined  file 

On  entr-v  ,  StdIn  refers  to  the  standard  input 
device  driver.  A  copy  of  StdIn  is  saved,  and 
StdIn  IS  redirected  to  our  predefined  input  file 

The  function  returns  TRUE  if  successful 


V'CR  Er rorNuT  ;  word; 

BEGIN 

Erro'^N'jm:  :=  0; 

Assicr  (  Input_File,  Std_Input_Fi  le_TeiT,D  '  ; 
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Reset  (  InPut_File  ); 

Saved_Std_In  ;=  Dupl icate_Handle  (  Stdin,  ErrorNum  ); 
Redirect_Handl e  (  Te:;tRec(  Input_File  ). Handle,  Stdin,  ErrorNum 
Redi rect_Std_Input  :=  (  ErrorNum  =  0  ); 

END; 

FUNCTION  Restore_Std_Input  ;  boolean; 

•C  Restore  program  input  to  the  standard  tile  handle 

On  entry,  Stdin  refers  to  our  predefined  file 
Stdin  is  rereferenced  to  the  input 
device  driver 

The  function  returns  TRUE  if  successful 


VAR  ErrorNum  :  word; 

BEGIN 

ErrorNum  :=  0; 

Redirect_Handle  (  Saved_Std_In ,  Stdin,  ErrorNum  ); 
itl-: 

Close  (  Input_File  ); 

IF  Cl ase_Fi i e_Handl e  (  Saved_Std_In ,  ErrorNum  )  THEN; 
Restore_5td_Ir'put  :=  '  ErrorNum  =  0  )  AND  (IDResult  <>  0)  ; 

END; 

FUNCTICN  Redi rect_5td_Errcr  :  boolean; 

C  Redirect  program  er.-cr  output  to  a  predefined  file 

On  ert'^y,  StdErr  r.yfe''5  tc  the  standard  output 
device  driver.  A  copy  c*  StdErr  is  saved,  and 
StdE' r  is  •'ed}'*ected  to  our  predefined  error  file 
Overcomes  nabilit.  to  redirect  from  the  MS-DOS 
com.msnd  lire 

Rhe  function  '■Etu’'n5  TRUE  if  successful 


VAR  E'rorNum  :  word; 

BEGIN 

ErrorNum  :=  0; 

Assign  (  Error_File,  Std_Error_Fi 1 e_Temp  ); 

Rewrite  (  Error_File  ); 

Raved_Std_Err  ;=  Dupl icate_Handle  (  StdErr,  ErrorNum  ); 
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Redirect_Handle  (  TextRec(  Error_File  ). Handle,  StdErr,  ErrorNum  ) 
Redirect_Std_Error  ;=  (  ErrorNum  =  0  ); 

END; 

FUNCTION  Re5tore_Std_Error  :  boolean; 

{  Restore  program  error  output  to  the  standard  file  handle 

On  entry,  StdErr  refers  to  our  predefined  file 
StdErr  is  rereferenced  to  the  output 
device  driver 

The  function  returns  TRUE  if  successful 


VAR  ErrorNum  :  word; 

BEGIN 

ErrorNum  :=  0; 

Redirect_Handle  (  Saved_Std_Err ,  StdErr,  ErrorNum  ); 

Ctl-} 

Close  (  Error_File  ); 

IF  Clo5e_Fi  le_Handl  e  (  Saved_Std__Err ,  ErrorNum  )  THEN; 

IF  lOResult  =~0  THEN  BEGIN  ~  ' 

Errors_Fiie  :=  Std_Error_Fi le_Temp; 

Re=tore_Std_Error  :=  (  ErrorNum  =  0  ); 

END 

ELSE  BEGIN 

Error s_File  ;=  NullStr; 

Restore  Std  Error  :=  FALSE; 

END; 

■CTI  +  3 

END; 

“UNCTION  Redi rect_Al 1 _0utput  :  boolean; 

C  Redirect  program  output  and  error  output  to  a  predefined  file 

On  entry,  StdOut  refers  to  the  standard  output 
device  driver.  A  copy  of  StdOut  is  saved,  and 
StdOut  IS  redirected  to  our  predefined  output  file 

On  entry,  StdErr  refers  to  the  standard  output 
device  driver.  A  copy  of  StdErr  is  saved,  and 
StdErr  1=  redirected  to  our  predefined  error  file 
Overcomes  inability  to  redirect  from  the  MS-DOS 
command  line 

■functior  returns  TRUE  if  successful 
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VAR  ErrorNum  :  word; 

BEGIN 

ErrorNum  ;=  0; 

{$!-} 

Assign  (  Output_File,  Std_Output_File_Temp  ); 

Rewrite  (  OutPut_File  ); 

Saved_Std_Out  :=  Duplicate_Handle  (  StdOut,  ErrorNum  ); 
Saved_Std_Err  :=  Duplicate_Handle  (  StdErr,  ErrorNum  ); 
Redirect_Handle  (  TextRecC  Output_File  ). Handle,  StdOut, 
Redirect_Handle  (  TextRec<  □utput_File  ). Handle,  StdErr, 
Redirect_All_Output  :=  (  ErrorNum  =  0  )  AND  (lOResult  <> 

in+y 

END; 

FUNCTION  Re5tore_Al l_0utput  :  boolean; 

■C  Restore  program  output  and  error  output  to  the  standard 

On  entry,  StdOut  re-fers  to  our  prede-fined  -file 
StdOut  is  rere-ferenced  to  the  standard  output 
device  driver 

Or,  entry,  StdErr  re-fers  to  our  prede-fined  -file 
StdErr  is  rereferenced  to  the  output 
device  driver 


■^he  function  returns  TRUE  if  successful 


VAR 

ErrorNum  :  word; 

BEGIN 

E'^rorNum  :=  0; 

Redirect_Handle  (  Saved_Std_Out ,  StdOut,  ErrorNum  ); 

IF  Close_File_Handle  (  Saved_Std_Out ,  ErrorNum  )  THEN; 
Redirect_Handle  (  Saved_Std_Err ,  StdErr,  ErrorNum  ); 

IF  Close_Fi le_Handle  (  Saved_Std_Err ,  ErrorNum  )  THEN; 

iti-y 

Close  (  Output_File  ); 

IF  lOResult  =  0  THEN  BEGIN 

Respon5e_Fi 1 e  ;=  Std_Output_Fi le_Temp; 

Restore_Al 1 _0utput  ;=  (  ErrorNum  =  0  ); 

END 

ELSE  BEGIN 

RespQnse_Fi le  :=  NuliStr; 

Restore^AI  I  _0u.tput  :=  FALSE; 


ErrorNum  ) 
ErrorNum  ) 
0  ); 


file  handle 
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END; 

{fi+: 

END; 

PROCEDURE  RestDre_CRT_As5ign(nents; 

C  Optional  procedure  to  replace  the  standard  -files  Input  and  Output 
with  text-file  drivers  in  the  CRT  unit  for  speed.  In  turns  out  that 
the  CRT  Unit  does  this  on  initialization,  but  disallows  I/O 
redirection  by  doing  so 

(Turbo  Pascal  Owner's  Handbook,  1987,  p.  377) 


BESIN 

AssignCRT 
Reset 
Assi gnCRT 
Rewrite 
END; 


(  Input  ) ; 

(  Input  ); 

(  Output  ) ; 
(  Output  ) ; 


BEGIN  {*  nc  initialization  required  *) 
END. 
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{ 


APPENDIX  N 

SOURCE  LISTING  FOR  UNIT  SPANN 


(**♦*  SPAWN. PAS  ****) 

(»**♦  This  is  the  unit  that  executes  child  processes  under  *♦**) 

MS-DOS  tor  the  Slave  computer.  Included  is  a  -function  »«•**) 
(##*»  to  detect  MS-DOS  commands  to  be  handled  by  the  ****) 

(***♦  program  rather  than  by  a  spawned  copy  o-f  Command.com.  ****) 

(.****  The  -function  is  placed  here  to  prevent  circular  unit  •**•»♦) 

(*♦#*  dependencies  while  restricting  visibility  to  unrelated  «•*«•») 

(#**»  units.  *«•♦*) 

(**♦*  *#♦*) 

Reference:  Mefford,  M.J.,  "Running  Programs  Painlessly  ■****) 

(♦**•»  PC  Magazine,  v.  7,  16  February,  1988.  #*«■«■) 

i****  **♦*) 

(****  Developed  by  Nelson  Ard  ****) 

{****  ♦*«■#) 

{****  Last  modification  Sep  89  ♦»«■*) 


(*  Modification  history 

S  Sep  89  -  added  PROMPT  to  the  list  of  internal  commands 

24  Mar  90  -  deleted  Find_Environment  (duplicated  in  Unit  Support 

-») 

UNIT  Spawn; 

INTERFACE 

uses  Datacom,  Dos,  Crt,  Redirect,  Support,  ErrorCod,  Miscpack; 

TYPE 

Internal _Command  =  (CD,  CHDIR,  COPI,  DEL,  DIR,  ERASE,  EQUIP,  LS,  MD, 

MKDIR,  PROMT,  RD,  REN,  RENAME,  RMDIR  ); 

CONST 

Command_Name  :  Array  C Internal _Command 3  OF  String[63  = 

('CD  ,  'CHDIR',  'COPY',  'DEL',  'DIR', 

'ERASE',  'EQUIP',  'LS',  'MD',  'MKDIR',  'PROMPT', 
'RD',  'REN',  'RENAME',  'RMDIR'  ); 

Com_Rort  :  StringCSl  =  'CC0M13'; 
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VAR 

Redirection  ;  boolean;  {  set  by  the  caller  in  the  main  program  to 

■force  all  command  program  output  to  file 
for  remote  display  3- 

FUNCTION  Match_Command  (  VAR  FileSpec  ;  FileString; 

VAR  Command  ;  Internal _Command  )  s  boolean 

{  Matches  the  command  in  FileSpec  against  the  above  list  of  commands 
processed  internally  by  this  program. 

Input;  FileSpec  is  the  command/file  name 

Output:  FileSpec  is  adjusted  to  contain  the  complete  path,  if  any 
Command  is  an  enumerated  type  for  internal  commands 
The  function  returns  true  if  a  command  is  matched 


Procedure  Run_Lcical  (  ProgramName,  Cmdline  ;  string; 

VAR  Response  :  string  128; 

VAR  Restype  ;  Respon5e_type; 

VAR  Error_msg  ;  stringl2S; 

VAR  Er'^type  ;  Response_type; 

VAR  Prompt  ;  stringl2i; 

Batch  :  boolean  ); 

C  Used  to  spawn  a  child  process,  program  name  in  Command, 
paramete'^E  in  Command_Tai  1 .  Program  output,  error  responses, 
and  a  follow  on  command  line  prompt  as  it  would  appear  from  a 
Iccal  command  line  processor  are  returned  to  the  calling 
program. 

Input:  ProgramName  is  the  command  to  be  executed  with  path 

Cmdline  is  the  command  tail  for  ProgramName 
Batch  lets  Run_Local  know  a  batch  file  is  to  be  executed 

Output:  Response  is  the  output  of  the  program 

Restype  is  the  type  of  Response  (string,  file,  nothing) 

Error_Msg  is  the  error  output  of  the  program 

Errtype  is  the  type  of  Error_Msg  (string,  file,  nothing) 

Prompt  is  a  simulated  command  line  prompt  after  program 

execution 
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PROCEDURE  Process_intrinsic_comffland  (  Command  :  Internal _command; 

Command_tail  :  StringlZS; 

VAR  Response  :  Stringl28; 

VAR  Restype  :  RespDnse_type; 

VAR  Error_msg  :  Stringl2a; 

VAR  Errtype  :  Response_type; 

VAR  Prompt  ;  String 128  ); 

£  Used  to  execute  a  command  normally  processed  internally  by 
command.com.  The  program  name  is  -found  in  Command, 
parameters  in  Command_Tai 1 .  Program  output,  error  responses, 
and  a  follow  on  command  line  prompt  as  it  would  appear  from  a 
local  command  line  processor  are  returned  to  the  calling 
program. 

Input;  Command  is  the  command  to  be  executed  with  path 
Command_Tail  is  the  command  tail  for  Command 

Output;  Response  is  the  output  of  the  program 

Restype  is  the  type  of  Response  (string,  file,  nothing) 

Erro’"_M5g  is  the  error  output  of  the  program 

Errtype  is  the  type  of  Error_M5g  (string,  file,  nothing) 

prompt  15  a  simulated  command  line  prompt  after  program 

executio-; 


IMPLEMENTATION 


FUNCTION  Match_ComiT:and  (  VAR  FileSpec  ;  FileString; 

VAF:  Command  :  Internal _Command  )  :  boolean; 

£  Matches  the  command  in  FileSpec  against  the  above  list  of  commands 
processed  irite''n3lly  by  this  program.  Returns  true  if  a  command 
is  matched 


Input:  FileSpec  is  the  command/file  name 

Output:  FileSpec  is  adjusted  to  contain  the  complete  path,  if  any 
Command  is  an  enumerated  type  for  internal  commands 
The  function  retu’^ns  true  if  a  command  is  matched 


VAR 

Found  :  boolean; 

index  ;  Inter nal _Command ; 
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BEGIN 

Found  ;=  FALSE; 

FOR  index  :=  CD  TO  RMDIR  DO 


IF  (  Pos  (  Command_NameC  index  ],  FileSpec  )  =  1  )  AND 

(  Length  (  Command_NameC  index  I  )  =  Length  (  FileSpec  ))  THEN 
BEGIN 

Found  :=  TRUE; 

Command  :=  index; 

END; 

Match_Command  :=  Found; 

END; 


Procedure  Run  Local 


ProgramName,  Cmdline  ;  string; 
VAR  Response  :  stringl2a; 

VAR  Restype  :  Response_type; 

VAR  Error_msg  :  stringl28; 

VAR  Errtype  :  Re5ponse_type; 

VAR  Prompt  :  string  128; 

Batch  ;  boolean  ); 


t  Used  to  spawn  a  child  process,  program  name  in  Command, 
paramete'^s  in  Command_Tai  1 .  Program  output,  error  responses, 
and  a  -follow  on  command  line  prompt  as  it  would  appear  -from  a 
local  command  line  processor  are  returned  to  the  calling 
program. 


■^he  use  o-f  a  secondary  copy  of  COMMAND.COM  to  run  batch  files  is  from 
(Meffond,  1988,  p.  327). 

Input:  P’^ogramName  is  the  command  to  be  executed  with  path 

Cmdline  is  the  command  tail  for  ProgramName 
Batch  lets  Run_Local  know  a  batch  file  is  to  be  executed 

Output:  Response  is  the  output  of  the  program 

Restype  is  the  type  of  Response  (string,  file,  nothing) 

Error_Msg  is  the  error  output  of  the  program 

Errtype  is  the  type  of  Error_Msg  (string,  file,  nothing) 

Prompt  is  a  simulated  command  line  prompt  after  program 

execution 


begin 

CheckBneak  :=  TRUE; 

IF  Batch  THEN  BEGIN 

Cmdline  :=  '  /c  '  +  programname  Cmdline; 

set  up  temporary  command.com  } 

ProgramName  :=  Fi nd_Envi ronment  (  'COMSPEC'); 
END; 
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6etDir(0,  Prompt); 

IF  Redirection  THEN  BEBIN 
Init_Redirect_Unit; 

IF  Redirect_All_Output  THEN; 

END; 

Exec  (Programname,  Cmdline); 

IF  Redirection  THEN  BEGIN 
IF  Restore.All .Output  THEN; 
Restore_CRT_Assignments; 

END; 

RS.Cleanup; 

RS.Restore  (  Current.COM  ) ; 

Restype  ;=  -file.type; 

Response  :=  Redirect.Response.-f ile; 
Errtype  ;=  strng; 

IF  doserror  <>  0  THEN  BEGIN 

Error.Msg  ;=  Error.Code  C  DosError  3; 
END 

else  Error.Msg  ;= 

System. ChDir  (  Prompt  ); 

F't'ompt  :=  Prompt  +  '>'; 

END; 


CONST 

Sf^'ACE  :  Char  =  '  ' ; 

PROCEDURE  Process_intrinsic_command  (  Command  :  Internal .command; 

Command. tail  :  String 12S; 

VAR  Response  ;  String  128; 

VAR  Restype  :  Response.type; 
VAR  Error.msg  ;  Stringl28; 

VAR  Errtype  :  Response.type; 
VAR  Prompt  ;  Stringl28  ); 


C  Used  to  execute  a  command  normally  processed  internally  by 
command. com.  The  program  name  is  found  in  Command, 
parameters  in  Command.Tai 1 .  Program  output,  error  responses, 
and  a  follow  on  command  line  prompt  as  it  would  appear  from  a 
local  command  line  processor  are  returned  to  the  calling 
program. 

Input:  Command  is  the  command  to  be  executed  with  path 

Command.Tai  1  is  the  command  tail  for  Command 

Output:  Response  is  the  output  of  the  program 

Restype  is  the  type  of  Response  (string,  file,  nothing) 
Err or. Msg  is  the  error  output  of  the  program 
Errtype  is  the  type  of  Error.Msg  (string,  file,  nothing^ 
Prompt  is  a  simulated  command  line  prompt  after  program 
execution.  1 
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CONST  Current_Dri ve  ;  byte  =  0; 

Batch_mode  ;  boolean  =  TRUE; 

VAR  I OR  :  word; 

Current_Path  ;  PathString; 

List  ;  EquipmentListType; 


BEGIN 

CASE  Command  OF 


CD, 

MD, 

RD, 

CHDIR, 

MkDir , 

Promt , 

RmDir  :  BEGIN 

Restype  ;=  strng; 

Errtype  :=  strng; 

CASE  Command  OF 

CD, 

ChDir  :  System. ChDir  (  Command_tail  ); 
MD, 

MKDIR  :  System. MkDir  (  Command_tail  ); 
PROMT  :  GetDir  (  Current_Dri ve,  Prompt  ) 
RC, 

RMDIR  ;  System. RmDir  (  Command_tail  ); 
END; 

lOR  :=  IOResu.lt; 

IF  lOR  O  0  THEN 

Error_!7isg  :=  "  G  +  Error_Code  C  lOR  3 
ELSE  Error_msg  := 

GetDir  (  Current_Dri ve,  Prompt  ); 

Response  : =  ' ' ; 

Prompt  ;=  Prompt  +  '>'; 

{»!+} 

END; 
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DEL, 

LS, 

DIR, 

REN, 

COP  I, 

ERASE, 

RENAME  :  BE6IN 

IF  Command  =  LS  THEN  Command  :=  DIR; 

Run_Local  (  Command.Name  C  Command  3  +  SPACE, 
Command_Tai 1 , 

Response,  Restype,  Error_msg,  Err type, 
Prompt,  Batch_Mode  ); 

END; 

EQUIP  :  begin 

CheckBreak  :=  TRUE; 

GetDir(0,  Prompt): 

IF  Redirection  THEN  BEGIN 
Ini t_Redirect_Unit; 

IF  Redirect_Al l_Output  THEN; 

END; 

Support. GetEquip  (  List  ); 

Errtype  :*  strng; 

IF  Redirection  THEN  BEGIN 
IF  Restore_All_Output  THEN; 
Restore_CRT_Assignment5; 

Restype  ;=  ■file_type; 

Response  Redirect. Response_-f i le; 

IF  doserror  <>  0  THEN 
ErrDr_M5g  :=  Error_Code  C  DosError  3 
else  Error_Msg  := 

END 

ELSE  BEGIN 

Restype  :=  strng; 

Response  ;=  'Unable'; 

Error_Msg  ; =  '  ' ; 

END; 

System. ChDir  (  Prompt  ); 

Prompt  :=  Prompt  +  '>'; 

END; 


END;  {CASE! 

END; 

BEGIN 

Redirection  ;=  TRUE;  C  output  is  normally  redirected  to  -file  3 
end. 


{ 


APPENDIX  X 

SOURCE  LISTING  FOR  UNIT  SUPPORT 

} 

(******♦«•**♦****■»*******♦♦***♦***■»■•»***********»*********«•*♦*♦**•*****) 


(*♦**  SUPPORT. PAS  **♦*) 

(•»***  This  is  the  unit  that  contains  typed  constants  tor  use  *♦**) 

(♦***  by  the  main  program  Distrib  to  display  window  menus.  *♦**) 

{****  In  addition  to  general  purpose  routines,  the  unit  also  ****) 

(*♦**  contains  the  initial ization  procedure  tor  the  program.  ****) 

(«*•»*  *♦♦*) 

(*«•**  *•»■**) 

(#♦♦*  Reterences:  Edwards,  C.  C. ,  Advanced  Techniques  in  Turbo  ***♦) 

(.****  Pascal,  pp.  241  -  272,  SybeK ,  Inc.,  1987  *»♦*) 

(****  ****) 

{****  Hall,  W.V.,  "When  Turbo  Isn't  Enough,"  in  **♦*) 

{****  Shammas,  N.C.,  The  Turbo  Pascal  Toolbook,  ♦***) 

{****  pp.  225  -  226,  M  ?'  T  Publishing,  Inc.,  1986. 

{****  *♦**) 

(****  Converted  to  a  unit  trom  program  Turbocom.com  in  the  **♦♦) 

(****  tirst  reterence.  #♦#*) 

{****  ****) 

(»■■)(•**  ♦♦**) 

(«•**#  Last  moditication  Sep  89  *##») 


(♦*#*•*■#■***♦*•*•*♦#♦***#*♦♦•»■•**#**#**♦♦•**♦**«•*♦##*»•»*•»###♦****#**#*•♦***#) 

UNIT  Support; 

I  Moditication  History 

4  Hug  8?  -  Changed  introductory  maintenance  screen 

Deleted  conversion  messages  trom  TP  4.0  } 

INTERFACE 

(#*♦****#•»•#**#«•»*#*«♦  Start  Edwards  Excerpt  #####•****#*•»■**##♦♦*#) 

Uses 

Crt, 

Dos, 

General , 

Data com, 

Wndow, 

Printer; 

Reprinted  with  extensive  moditications  trom  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  ot  Sybex ,  Inc. 
Copyright  1987  Sybex,  Inc.  Ail  rights  reserved. 

Continue  Edwards  Excerpt  ♦**•♦*#*♦**•♦♦***»♦*•**) 
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(*****«•♦***♦♦♦***♦***  Continue  Edwards  Excerpt  ♦«•***♦»*«•**♦»*******) 


Alt_ 

A 

=  30; 

Alt_ 

B 

=  48; 

Alt_ 

C 

=  46; 

Alt_ 

D 

=  32; 

Alt 

E 

=  18; 

Alt 

F 

S  • 

Alt. 

S 

=  34; 

Alt 

H 

=  35; 

Alt 

I 

=  23; 

Alt. 

J 

=  36; 

Alt. 

K 

=  37; 

Alt. 

L 

=  38; 

Alt. 

M 

=  50; 

Alt. 

N 

=  49; 

Alt. 

0 

=  24; 

Alt. 

P 

=  25; 

Alt. 

Q 

=  16; 

Alt. 

R 

=  19; 

Alt. 

S 

=  31; 

Alt 

T 

=  20; 

Alt. 

U 

—  or*  t 

Alt 

V 

=  47; 

Alt 

Vi 

=  17; 

Alt. 

X 

=  45; 

Alt. 

Y 

=  21; 

Ait. 

z 

=  44; 

Home 

=  71; 

PgUp 

=  73; 

PgDn 

=  81; 

NUL 

= 

*00 ; 

SOH 

= 

*01 ; 

STX 

= 

*02; 

ETX 

= 

*03 ; 

EOT 

= 

*04 ; 

ENQ 

= 

*05; 

ack;: 

= 

*06; 

BEL 

= 

*07; 

BS 

= 

*08; 

HT 

= 

*09; 

LF 

= 

*0A; 

VT 

= 

*0B; 

FF 

*0C; 

CR 

= 

*0D ; 

SO 

= 

*0E; 

SI 

= 

*0F ; 

(«  Reprinted  with  extensive  mod  i-fi  cat  ions  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1987  Sybex,  Inc.  All  rights  reserved. 
»****#*-»i-4*-inc*******i<-*  Continue  Edwards  Excerpt  ********************] 


(******♦****♦♦*«■*♦♦**  Continue  Edwards  Excerpt  ♦*#♦**#♦♦*•*»«■****♦♦«) 


DLE 

= 

$10; 

DCl 

= 

$11; 

DC2 

= 

$12; 

DC3 

= 

$13; 

DC4 

= 

$14; 

NAK 

= 

$15; 

SYN 

= 

$16; 

ETB 

= 

$17; 

CAN 

= 

$18; 

EM 

= 

$19; 

SUB 

= 

$1A; 

ESC 

= 

$1B; 

FS 

$1C; 

GS 

= 

$1D; 

RS 

= 

$1E; 

US 

sr 

tl~; 

CEE 

s 

$43; 

Type  Phone_Name  =  StringC30]; 

Phone_F'aram5  =  Record 

Phone_Number ; Str i ng  C  20 ] ; 

Phone_Baud : RS_Baud ; 

Phone_Pari ty: RS_Pari ty; 

Phone_Length:Byte; 

Phone_Stop:Byte; 

Phone_Echo; Boolean; 

End; 

Pnonp_Recc""d  =  Record 

Name: Phone_Name; 

Phone_Data;Phone_Param5; 

End; 

Phone_Name5  =  Record 

Length: Integer; 

Names: Array  Cl..  13  o-f  Phone_Name; 

End; 

Phone_Data  =  Array  Cl..  13  oP  Phone_Params; 

Communications_Type  =  Record 

Speed :RS_Baud; 

Par i ty : RS_Par i ty ; 

Length:Byte; 

Stop: Byte; 

End; 

Str:ng3  =  StringC33; 

StringA  =  StringC43; 

(*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1997  Sybei; ,  Inc.  All  rights  reserved. 
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TYPE  EquipmentLi stType  =  RECORD 

NbrO-f  Printers, 

NbrO-f Serial , 

NbrOf Diskettes, 

InitialVideo, 

RAMOn Board  ;  word; 

IsGamePort, 

IsDiskette  :  boolean; 

END; 

VAR  List  :  EquipmentListType; 

Var  Phone_Fi  1  e:  Fi  1  e  o-f  Phone_Record; 

■Clicved  -from  Dialing  Directory  1- 
Phone_Menu, 

01  d_Phone_Menu:  "■Phone_Names; 

Phone_Stu'f -f , 

01  d_Phone_StuFF :  ■■■•Phone_Data; 

Phone_Pretix; String  CIO]; 

Echo,Pri  nt , Asci  i  _Upload , Asci i _Download,End_Emul ator; Boolean ; 
Status_Li ne; Str i ngCSOl ; 

Emulator; String  Cl 01; 

Ascii_File  :  File  o-f  Char; 

Ascii _Fi leName: 3tringC203 ; 

Current_Path: Long_Stri ng; 

Dial_Delay; Integer; 

Last_Dial; Integer; 

Type  De*ault_Type  =  Record  CThe  de-fault  parameters  -for  Distrib) 

De-f  aul  t_Name:  Str  i  ngC30] ; 

Def  aul t_Com: Byte; 

De-f  aul  t_Modem:  Byte; 

Def aul t_Phone; StringC20] ; 

Def aul t_Speed;RS_Baud; 

Def aul t_Pari ty: RS_Parity; 

Def aul t_Length: Byte; 

Def  aul t_Stop : Byte; 

Def aul t_Echo: Boolean; 

Def aul t_Textcolor; Byte; 

Def ault_Menucolor;Byte; 

Def aul t_Backcol or ; Byte; 

Def  aul t _Pr ef i x : Str i ng  C 1 0 ] ; 

Def aul t_Delay: Integer; 

End; 

i*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  19B7  Bybex ,  Inc.  All  rights  reserved. 
♦**»+it'*-*'#*4»**»******  Continue  Edwards  E;:cerpt  ♦###♦*♦##*«•♦*«•****#*) 


(***•*■***«•♦*♦«•********  Continue  Edwards  Excerpt  **«•*♦**♦**♦■**♦♦*■♦♦**) 

VAR  Current  :  De-f ault_Type|i 

Const  De-faults:De'fault_Type  = 

(De-f  aul  t_Name:  'DISTRIB.CFG' ; 

Default_Com: 1; 

Def  aul t  _Modem ; 2 ; 

Def ault_Phone: '555-1212'; 

De-f  aul  t_Speed;  B9600; 

De-f  aul  t  _Par  i  ty :  None ; 

De-fault_Length;8; 

De-fault_Stop:  1 ; 

De-f  aul  t_Echo:  False; 

De-faul  t_Te;;tcolor:LightGray; 

De-f  aul  t_Menucol  or :  Green ; 

De-f  aul  t_BackcQl  or :  Black; 

De-faul  t_Pre-f  i :  '  ATDT9,  ,9, ,  ' ; 

De-faul  t_Del  ay:  30) ; 

□K_Menu: Integer  =  1; 

□K_Msg: String C3]  =  'OK  '; 

Yes_Nn_Menu; Integer  =  2; 

Ye=_No_ri5g: Array  Cl.. 2]  o-f  String[3]  =  ( 

'No  ' , 

' Yes ' ' ; 

Dial_Meriu:  Integer  =  5; 

Dial_Nsg: Array  Cl.. 53  o-f  StringC63  =  ( 

'Dial  ' , 

'Repeat ' , 

' Modi-f y ' , 

' Del ete ' , 

'Add  '); 

Speed_Menu: Integer  =  10; 

5peed_N5g; Array  Cl..  103  o-f  StringC43  =  ( 

'  110', 

'  150', 

'  300 ' , 

'  600 ' , 

' 1200' , 

' 2400 ' , 

' 4800 ' , 

' 9600 ' , 

(*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  3987  Sybex,  Inc.  All  rights  reserved. 
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'19K2' , 

'38K4'); 

Pari ty_Menu: Integer  =  3; 

Pari ty_Msg: Array  Cl.. 33  of  String[4]  =  ( 

' None ' , 

'Odd 

'Even ' ) ; 

Stop_Menu: Integer  =  2; 

Stop_Msg; Array  Cl.. 23  of  StringC63  =  ( 

'0  Bits', 

'1  Bit  '); 

Length_Menu; Integer  =  4; 

Length_Msg: Array  Cl.. 43  of  StringC63  =  ( 

'5  Bits', 

'6  Bits', 

'7  Bits', 

'8  Bits' ) ; 

Param_Menu: Integer  =  14; 

Par am_Msg: Array  Cl.. 143  of  String! 163  =  ( 

'Name  ' , 

'Phone  Number  ', 

'Speed  ', 

'Word  Length  ', 

'Parity  ', 

'Stop  Bits  ' , 

'Local  Echo  ', 

'Comm  Port  ' , 

'Modem  Port  ', 

'Dial  Prefix  ', 

'Redial  Delay  ', 

' Foreground  Color', 

'Background  Color', 

'Menu  Color  '); 


Col or_Menu; Integer  =  8; 


Col  or _M5g : Array 
'Black  ', 
'Blue  ' , 
'Green  ', 
'Cyan  ' , 


Cl.. 93  of  StringC73  = 


{*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1987  Sybex,  Inc.  All  rights  reserved. 
♦*-*«-****#*-»n»-*«-*******  Continue  Edwards  Excerpt  ****•*■»•«■«■»***«•■**♦****) 
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' Red  ' , 

'Magenta ' , 

'Brown  '  , 

'White  '  , 

'Nothing ' ) ; 

Comm_Menu: Integer  =  2; 

Com(Ti_Msg: Array  Cl.. 2]  o-f  String[53  =  ( 

'COM  1', 

'COM  2'); 

Protocol _Menu: Integer  =  2; 

Protocol _Msq; Array  [1..23  of  StringC6]  =  ( 

'Ascii  ', 

' XModem ' ) ; 

Communication5_Menu: Integer  =  21; 

Co/nmuni cat ions_Msg: Array  Cl. .213  of  StringClCO  =  ( 

'  300-E-7-1 ' , 

■  300-0-7-1 ' , 

'  300-N-8- 1  '  , 

1200-E-7-1  ' , 

•  1200-0-7-1  '  , 

' 1200-N-8-1  ' , 

'2400-E-7-1 ' , 

'2400-0-7-1  '  , 

'2^00-N-8-l ' , 

'4S00-E-7-1  ' , 

-4800-0-7-1  '  , 

4800-N-8-I  ' , 

■9600-E-7-1  '  , 

■  9600-0-7- 1  ' , 

' 9600-N-e- 1  '  , 

' 19K2-E-7-1  -  , 

' 19K2-0-7-1  '  , 

■ 19K2-N-8-1  '  , 

'38K4-E-7-1  '  , 

'38K4- 0-7-1 ■  , 

'38K4-N-8-1 ' ) ; 

Communi cat i ons_Stuff : Array  [1..21]  of  Communi cati ons_Type  =  ( 
(Speed:B300;Parity:Even;Length;7;Stop: 1) , 

( Speed ; B300 ; Par i ty : Odd ; Length ; 7 ; Stop : 1 ) , 

(Speed; B300; Par 1 ty: None; Length: 8; Stop: 1 ) , 

(Speed; B1200; Pari ty; Even; Length: 7; Stop:  1 ) , 

( Speed ;B1 200; Parity: Odd; Length;  7;  Stop;  1) , 

Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 

Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybe;. ,  Inc. 

Copyright  1987  Sybe::,  Inc.  All  rights  reserved. 
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(Speecl:B1200;Parity:None;Length;8;Stop:  1)  , 
(Speed:B2400;Parity;Even;Length:7;Stop: 1) , 

(Speed :B2400; Parity; Odd; Length: 7; Stop:  1) , 
(Speed:B2400;Parity;None;Length;8;Stop; 1) , 
(Speed:B4800;Parity;Even;Length;7;Stop; 1) , 

( Speed :B4800; Parity; Odd; Length; 7; Stop:  1) , 
(Speed:B4800;Parity:None;Length;8;Stop; 1) , 

( Speed :B9600; Parity; Even; Length; 7; Stop: 1) , 
(Speed:B9600;Parity:0dd;Length;7;Stop:  1) , 
(Speed;B9600;Parity:None;Length;8;Stop;  1) , 

(Speed ;B19200; Parity; Even; Length: 7; Stop; 1) , 
(Speed;B19200;Parity;0dd;Length;7;Stop:  1) , 

(Speed: B19200; Parity; None; Length; 8;  Stop:  1) , 

(Speed :B38400; Parity; Even; Length: 7; Stop;  1) , 

(Speed:  E.38400;Parity:0dd;Length:7;Stop:  1)  , 

( Speed :B38400; Parity: None; Length: 8; Stop: 1) ) ; 

Hel  p_!*lenu.:  Integer  =  17; 

Help_M5g: Array  Cl..  17]  o-f  String[263  =  ( 

'Alt -A  Change  drive  ■!<  path', 

'Ait-E  Send  a  Break  signal', 

'Alt-C  Update  Con-fig  File  ', 

'Alt-D  Dialing  Directory 
'Alt-E  Local  echo  toggle  ', 

'Alt-F  Change  DC  params  ', 

'Alt-5  Show  disk  directory', 

'Alt-H  Hang  up  phone  ', 

'Alt-L  DOS  Shell 

'Alt-f'-  Activate  Master  ', 

'Alt-P  Port  Operations  ', 

'PgDn, 

'Alt-R  XMODEM  Get  a  file 
'Alt-S  Activate  Server  ', 

'PgUp,  ', 

'Alt-^  XMODEM  Put  a  file  ', 

'Alt-X  (ESC)  Exit  emulator'); 

Hel  p_Inde': :  Arrav  Cl..  173  of  Byte  =( 

~Alt_A, 

Alt_E, 

Alt_C, 

Alt_D, 

Alt_E, 

Alt_F, 

Alt_G, 
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Alt_H, 

Alt_L, 

Alt_M, 

Alt_P, 

PgDn, 

Alt_R, 

Alt_S, 

PgUp, 

Alt_T, 

Alt.X); 

Procedure  Initialize; 

Procedure  Modi -f y_Entry  ( I ;  Integer) ; 

Procedure  Save_File(D: Boolean) ; 

Procedure  OK (S;String3) ; 

Function  Yes (S; String4) ; Boolean; 

Procedure  Bui  1 d_Status_Line; 

Function  Check_Keyboard; Integer; 

Funct i  on  Check_Auv! port ;  Char ; 

Functicn  Find_Environment (What: Long_5tring) ; Long_String; 

Procedure  NoFile(S;Long_String) ; 

Procedure  GetEquip  (  VAR  List  :  EquipmentListType  ); 

IMPLEMENTATION 

Procedure  Initialize; 

•CThis  procedure  initializes  the  de-fault  values  and  reads  the  phone  file} 

Var  Phone: Phone_Record; 

I: Integer; 

Configuration  :  File; 

Numread  :  word; 
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Begin 

Assign  (  Configuration,  Defaults.Def  ault_Nanie  ); 

{#!-} 

Reset  (  Configuration,  Sizeof  (  Defaults  )  ); 

If  lOResult  >  0  then  Current  ;=  Defaults 
ELSE  Begin 

BlockRead  (  Configuration,  Current,  Sizeof  (  Defaults  ) ,Numread) 
Close  (  Configuration  ); 

If  lOResult  >  0  then  Current  :=  Defaults; 

End; 

With  Current  do 
Begin 
ClrScr; 

If  not  Mono  then 
Beg  i  n 

SetColor (Def ault_Textcolor) ; 

SetBackground (Default_Backcolor ) ; 

Menugr Dund ; =Def  aul t_Menucol or ; 

End; 

Phone_Pref i X : =Def aul t_Pref ix ; 

Echo: =Def aul t_Echo; 

Diai_Delay: =Def ault_Delay; 

Print ;=False; 

Ascii_Upload: *False; 

Asci i_Downloadi =False; 

GotoXY(27, 1) ; 

Textcolor  <Def ault_Textcolor+8) ; 

Writeln ( 'Remote  Server  Version  1.0'); 

GotoXY(31 ,2) ; 

Wri te ^ 'Maintenance  Screen'); 

GotoXY(35,3)  ; 

Write ('Dr.  Kodres'); 

Textcolor (Def aul t_Tex t color) ; 

Wri t8_Statu5 ( '  Initializing', 

Default_Textcolor  shl  4+DBf  aul  t_Backcolor+|:B0) ; 

End; 

La5t_Dial : =1 ; 

Assi gn (Phone_Fi le, ' DISTRIB. PHN ' ) ; 
i$l-: 

Reset ( Phone_F i  1  e ) ; 
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•C^I+} 

H  lOResult  >  0  then 

Begin  {Create  new  {ile> 

GetMem(Phone_Menu,SizeO-f  (Phone_Names) ) ; 

GetMem  (Phone_StU'f -f  iSizeO-f  (Phone_Params) ) ; 

Phone_Menu"-.  Length;  =  1 ; 

Phone_lienu^-.  NamesC  1  .To  be  provided... 

Move  (Defaults.  De-fault_Phone,Phone_Stu-f{''[  1]  jSizeO-f  (Phone_Params) ) 
Phone.  Name:  =Phone_Menu"'.  NamesC  13; 

Phone.  Phone_Data:  =Fhone_Stuf  f '''C 1 3 ; 

Rewrite (Phone_Fi le) ; 

Wri  te(Phone_Fi le, Phone) ; 

End 

else 

Begin  {Get  phone  file! 

I:=FileSi2e(Phone_File) ; 

GetMem (Phone_Menu, I^SizeOf (Phone_Name) +2) ; 

GetMem (Phone_Stuf f , I*Si2e0f (Phone_Params) ) ; 

Phcne_Menu'"'.  Length:  =I ; 

I;=l; 

:$R-} 

While  not  Eof (Phone_File)  do 
Begin 

Read (Phone_Fi le, Phone) ; 

Phone_Mena'".  NamesC  1 3  :=Phone.Name; 

Phone  Stuf f "C 1 3 : =Phone. Phone_Data; 

I: =1+1; 

End; 

■CtR+l 

End; 

Close(Phone_File) ; 

With  Current  do 
Begi  n 

RS_Initialize( Def  au 1 1  _Com , Def  aul t _SpBed , Def  aul t  _Par 1 1  y , 

Def ault_Stop,Default_Length) ; 


End; 

Wri te_Status ( '  Current. Def aul t_BackcDl or  shl  4  + 

Current. Def aul t_Textcol or) ; 

End;  {of  Initialize) 
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Procedure  Save_Fi le (D:Boolean) ; 

{This  procedure  asks  the  user  i-f  he  wants  to  save  a  changed 
con-f  iguration 

If  so,  it  writes  the  appropriate  file 

Input  D;  True  if  saving  default  values 
False  if  saving  phone  file 

Van  Configuration  :  File; 

Phone; Phone_Record ; 

J: Integer; 

Begin 

If  0pen_Window(50,9,67, 12,Flag_Borders, ' ' )  =  0  then; 
ClrScr; 

If  D  then 

Write ('Save  defaults?') 
else 

Write ('Save  this  entry?'); 

If  Yes ('Save')  then 
Begin 
ClrScr; 

Wr: te ( 'Saving. . .  ' ) ; 

If  D  then 
Begin 

Assign(  Configuration,  Defaults. Default_Name  ); 

{fl-} 

Rewrite  (  Configuration,  Sizeof  (  Defaults  )  ); 

If  lOResult  >  0  then 

NoF i 1 e (Def  aul ts. Def  aul t_Name) 
else 
Begin 

BlockWrite  (  Configuration,  Current,  1  ); 

Close  (  Configuration  ); 

End ; 

End 

{$!+} 

el  se 
Beg  i  n 

{fR-} 

Assign (Phone_File, 'DISTRIB. PHN ' ) ; 

Rewrite(Phone_Fi le) ; 
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For  J:=l  to  Phone_Menu''.  Length  do 
Begin 

Phone .  Name ;  =Phone_Menu'^ .  Names  C  J  3 ; 

Phone.  Phone_Data!  =Phone_Stu-f -f '‘C  J  3 ; 

Write<Phone_File, Phone) ; 

End; 

Close(Phone_File) ; 

■C$R+} 

End; 

End; 

H  Clo5e_Window  then; 

End;  {o-f  Save_File> 

Procedure  Modi-fy_Entry(I:  Integer) ; 

{This  procedure  modifies  an  entry  in  the  phone  list. 

Input;  I  -  I-f  >  0  then  the  entry  in  the  phone  list  to  be  modi-fied 
H  =  0  then  the  de-fauit  parameters 

\ 

J 

Van  J,K; Integer; 

St atus_Wi  ndow , Menu_Wi ndow: Byte; 

S: Long_String ; 

B: Boolean; 

procedure  Update_Statu5; 

Van  J; Integer; 

Begin 

■CfR-l 

H  6et_Window (Status_Window)  then; 

For  J:=l  to  Param_Menu  do 
Beg  i  n 

GotoXY(18,J) ; 

ClrEol ; 

Case  J  of 

1:  If  I  =  0  then 

Wr i te ( Current . Def  aul t_Name ) 
else 

Wri te (Phone_Menu" . NamesC 13); 

2:  If  I  =  0  then 

Write (Current. Def aul t_Phone) 
else 

Wr i  te  (Phone_StL'f  f  ■  ■[  1 3 .  Phone_Number ) ; 
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3:  If  I  =  0  then 

Write (Speed_MsgCOrd  <Current.Def ault_Speed) +1 ] ) 
else 

Wri te  <Speed_MsgCOrd (Phone_Stuf f -^C 1 3 . Phone_Baud) +1 3 ) ; 
4;  If  I  =  0  then 

Write (Length_MsgCCurrent.Def ault_Length-4] ) 
else 

Wr i te (Length_Msg[Phone_Stuf  f  1 3 •  Phone_Length-43 ) ; 

5:  If  I  =  0  then 

Wr i te ( Par i t y_Msg  C Mi n ( Or d ( Current . Def  aul t  Par i t y ) 

+  1,3)3) 

else 

Write( 

Parity  MsgCMin  (Ord  (Phone_Stuf  f '"C 1 3 . Phone  Parity) 
+1,3T3); 

6:  If  I  =  0  then 

Wri  te (Stop_MsgCCurrent . Def aul t_Stop+l 3 ) 
else 

Write (Stop_MsgCPhone_Stuf f ■■' [ 1 3 . Phone_Stop+l  3 ) ; 

7:  If  I  =  0  then 

Write (Yes_No_MsgCOrd (Current. Def ault_Echo) +1 3 ) 
else 

Wri  te  (Yes_ND_MsgCOrd  (Phone_Stuf  f '•[  1 3 .  Phone_Echo)  +  1 3 ) 
8:  Wr  1  te(Comfri_Msg  [Current.  Def  aul  t_Cofn  3) ; 

9:  Write (Comm_MsgCCurrent.DefauIt_Modem3) ; 

10:  Wr i te (Current. Def ault_Prefix ) 5 
11:  Wri te (Current. Def ault_Del ay) ; 

12:  Wr 1 1  e (Cal  or _M5g  C  Current . Def  aul t_Tex  tcol or + 1 3 ) ; 

13;  Write(Color_Msg[Current.Default_Backcolor+13)5 
14;  Wr i t e ( Col  or  _M5g [ Current . Def aul t _Menucol or  + 1 3 ) ; 

End;  -Cof  Casel 
End; 

If  Get_Wi ndow (Menu_Wi ndow)  then; 

End;  (of  Update_Status> 


Beg  1  n 

If  I  =0  then 
If  Mono  then 

Param_Menu; =10 
else 

Par am  Menu; =13 
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else 

Param_Menu: =7; 

I  -f  Open_Wi  ndow  (1,2,50, 3+F‘ar am_Menu ,  FI  ag_Bor der s , 

'Parameters')  =  0  then; 

Status_Window:  =Acti  ve_Window''.  ID; 

ClrScr ; 

For  J:=l  to  Param_Menu  do 
Begin 

GotoXY(l,J) ; 

Write(Param_MsgCJ3 ,’:'); 

End; 

I -f  0pen_Wi ndow  <52,2,70, 3+Par am_Menu , FI ag_Bor der s , 

'Options')  =  0  then; 

Menu_Window;  =Acti ve_Window'“'.  ID; 

ClrScr; 

Repeat  Begin 

Update_Statu=; 

J : =Process_Wi ndow_henu (Param_Menu) ; 

Case  J  o-f 

0:  ;  CESC.-.do  nothing! 

1:  Begin  {Change  Name! 

H  0pen_Window(5,21 ,75,24,Flag_Borders, 

'Name')  =  0  then; 

Cl rScr ; 

Write('Name;  '); 

Readln (S) ; 

If  Length (S)  >  0  then 
If  I  =0  then 

Current. Default_Name: =S 
else 

Phone_Menu  .  Names!  1 1 ;  =S 
+ '  ' ! 

If  Close_Window  then; 

End; 

2;  Begin  {Phone  number! 

If  0pen_Window(5,21 ,75,24,Flag_Borders, 

'Phone  Number')  =  0  then; 

ClrScr; 

Write ('Phone  Number;  '); 

Readln (S) ; 

If  Length (S)  >  0  then 
If  I  =  0  then 
Current. Default  Phone; =S 
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el  se 

Phone_Stu'f  f 1 1 .  Phone_Number :  =S; 

If  Close_Window  then; 

End; 

3:  Begin  {Speed! 

If  0pen_WindQw(69,5,75, l4,Flag_BQrders, 'Baud ' )  =  0 
then; 

ClrScr ; 

K:=Process_Window_Menu (Speed_Menu) ; 

If  K  >  0  then 
If  I  =  0  then 

Current . Def  aul t_Speed ; =RS_Baud ( K- 1 ) 
else 

Phone_Stuff^Cn. Phone_Baud :  =RS_Baud ( K- 1 ) ; 

If  Close_Window  then; 

End; 

4:  Begin  {Word  Length! 

If  0pen_Window(tj9,6,77, 11  ,Flag_Borders, 'Bits' )  =  0 
then; 

ClrScr; 

K; =Process_WindQW_Menu (Length_Menu) ; 

If  K  >  0  then 
If  I  =  0  then 

Current . Def aul t_Length : =K+4 
else 

Phone_Stuf  f  '■•[  1 1 .  Phone_Length :  =K+4; 

If  CLose_Window  then; 

End; 

5:  Begin  {Parity! 

If  Dpen_Window(69,7,75, 11 ,Fleg_Border5, 

'Type')  =  0  then; 

ClrScr; 

K:  =Proces5_Window_Menu  (Pari  ty_MenLi)  ; 

If  K  <  3  then  K.;=K-1; 

If  K  >=  0  then 
If  I  =0  then 

Current.Def ault_Parity:=RS_Parity (K) 
el  se 

Phone_St uf  f  '•  C I ! .  Phone_Par  i  t  y :  =RS_Par  i  t  y  ( K ) ; 

If  Close_Window  then; 

End; 

6;  Begin  {Stop  bits! 

If  0pen_Window(69,8,77, 1 1 ,F1 ag_Borders , 

'Bits')  =0  then; 
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ClrScr; 

K: =Process_Wi ndow_Menu (Stop_Menu) ; 

H  K  >  0  then 
H  1  =  0  then 

Current .  De-f  aul  t_Stop ;  =K-1 
else 

Phone_Stu-f -f ''C I D .  Phone_Stop ;  =K-1 ; 

H  Close_Window  then; 

End; 

7;  Begin  {Local  echo} 

B: =Yes ( 'Echo ' ) ; 

H  I  =  0  then 

Current.  De-f  aul  t_Echo:=B 
else 

Phone_Stu-f  f  •^CI3.Phone_Echo:  =B; 

End; 

8;  Begin  {Comm  port} 

I-f  □pen_Window (69, 10,76, 13,Flag_Borders, 

'Port')  =  0  then; 

ClrScr; 

K; =Proces5_Window_Menu (Comm_Menu) ; 

I-f  K  >  0  then 

Current. Default_Com;  =K; 

If  Close_Window  then; 

End; 

9:  Begin  {Comm  port} 

If  0pen_Window<69, 10,76, 13,Flag_Borders, 

'Port')  =  0  then; 

ClrScr; 

K;  =Proces5_Wi  ndow_f1enu  (Comm_Menu) ; 

If  K  >  0  then 

Current . Def aul t_Com: =K; 

I-f  Clo5e_Window  then; 

End; 

10:  Begin  {Dial  P'refix} 

If  0pen_Window(5,21 ,75,24,Flag_Border5, 

Prefix')  =  0  then; 

ClrScr; 

Write( 'Prefix;  '); 

Reed  In (S) ; 

If  Length (S)  >  0  then 

Current .  Def  aul  t_PrBf  i  ;  =S; 

If  Clo5e_Window  then; 

End; 
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11:  Begin  {Default  redial  delay} 

I f  Open_Wi ndow (5 , 21 , 75 , 24 , FI ag_Border s , 

'Redial  delay')  =  0  then; 

ClrScr ; 

Write( 'Redial  delay  (in  seconds);  '); 

Readln  (Current. De'fault_Delay) ; 

H  Close_Window  then; 

End; 

12,  {Foreground  color} 

13,  {Background  color} 

14;  Begin  {Menu  color} 

H  0pen_Window(69,2+J,78, ll+J,Flag_Borders, 

'Colors')  =  0  then; 

ClrScr; 

K: =Process_Window_Menu (Color_Menu) ; 

H  K  >  0  then 
Case  J  of 

1 2 ;  Current . Def  aui t_Tex  tcol or ; =K- 1 ; 

1 3 :  Current . Def  aul t_Bac  kcol or ; =K- 1 ; 

14;  Current. Def aul t_Menucol or ; =K-1 ; 

End;  (of  Case} 

If  Clo5e_Window  then; 

End; 

End;  {of  Case} 

End 

Until  J  =  0; 

If  Clo5e_Window  then; 

Save_Fi  led  =  0) ; 

If  Close_Window  then; 

{JF.+: 

End;  (of  Modi f y_Entry} 

Procedure  OK (S;String3) ; 

{This  procedure  displays  a  window  on  the  screen  and  waits  for  an 
acknoledgeinent  from  the  user 

Input:  S  -  The  title  to  use  for  the  window 

j 

Begin 

If  Of en_Window(60,5,64,7,Flag_BordBrs,S)  =  0  then; 

If  Process_Window_Menu (0K_Menu)  =  0  then; 

If  Clo5e_Window  then; 

End;  {of  OK} 
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Function  Yes (S;String4) :BoDlean; 

{This  procedure  prompts  the  user  -for  a  yes  or  no  response 
Input:  5  -  The  title  to  use  -for  the  window 
Output:  True  iT  YES  was  selected 

j 

Begin 

If  Open_Window (69,9,74, 12, Flag_Borders,S)  =  0  then; 

Yes:  =Process_Window_Menu  (Yes_No_lienu)  =  2; 

If  Close_Window  then; 

End;  {of  Yes} 

Procedure  Bui ld_Status_Line; 

{This  procedure  updates  and  displays  the  status  line} 

VAR  Comport  :  stringCl}; 

Begin 

Str  (  CLirrent_CDM,  Comport  ); 

Status_Line:  =  '  '+  {40  spaces 

';  {40  spaces 

Insert ('Com  Port:  ' ,Status_Line, 1 ) ; 

Insert (Comport ,Status_Line, 11); 

WITH  Datacom, Comport  C  Current_C0M  3  DO 
BEGIN 

Insert  (  Speed_Msg CORD (  Speed  )  +  1  3,  Statu5_Line,  13); 

Insert  (  'Baud  ',  Status_Line,  18  >; 

Insert  (  Length_Msg[  Length-43,  Status_Line,  23  ); 

Insert  (  Parity_Msg[fiin  (0RD(  Parity  )+l,  3)3,  Status_Line,  30) 
Insert  (  Stcp_Msg[  Stop  +  13,  Status_Line,  35  ); 

END; 

If  Echo  then 

Insert ( 'Echo ' ,Status_Line,47) ; 

If  Print  then 

Insert ( 'Print ' ,Status_Line,52) ; 

Insert  ■; 'Home  for  Help  '  ,Status_Line,68) ; 

Write_Status (3tatus_Line, Foreground  shl  4  +  Background); 

End;  {of  Bui  1 d_Status_Li ne3 

Function  Check_Keyboard: Integer; 

{This  -function  checks  for  keyboard  input 
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Output:  0  it  no  key  pressed 

H  normal  key  then  high  byte  is  0  and  low  byte  is  value  ot  key 
If  special  key  then  low  byte  is  0  and  high  byte  is  value  of  key 

> 

Var  ChiChar; 

Begin 

If  Ascii _Upload  then 
Begin 

If  Eof (Ascii _File)  then 
Begin 

Close(Ascii_File) ; 

Asci i_Upload:=False; 

Bui  1 d_Status_Li ne; 

End 
el  se 

Begin 

Read ( Asc i i _F i 1 e , Ch ) ; 

If  Ch  =  Char(LF)  then 
Ch:=Char (NUL) ; 

Chec  k_Keyboard : =Byte (Ch ) ; 

End 

End 

else  if  Keypressed  then 
Begin 

Ch  :=  ReadKey; 

If  (Ch  =  #0)  then 
Begin 

Ch  ;=  ReadKey? 

Check_Keyboard: =Byte (Ch)  shl  8; 

End 
el  se 

Check_Keyboard: =Byte (Ch) ; 

End 

else 

Check_Keyboard: =0; 

End;  lof  Check_Keyboard> 

Function  Check_Au;:port: Char; 

{This  function  checks  for  input  from  the  data  communications  port 
If  the  appropriate  global  booleans  are  set,  it  will  send  the  output 
to  the  printer  or  to  a  disk  file 

Output:  NUL  if  no  character  otherwise  character  received 


(«•  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1987  Sybex,  Inc.  All  rights  reserved. 
■»*»♦*•)(••»*♦*♦•»■*■»>•**■♦♦♦**  Continue  Edwards  Excerpt  ***♦«■»**♦♦»****»*■*■»*) 
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Var  Ch:Char; 

Begin 

H  RS232_Avail  then 
Begin 

Ch  :=  RS232_In; 

H  Ch  <>  Char(NUL)  then 
Begin 

H  Print  then 
Write (LST,Ch) ; 

It  Asci i_Download  then 
Wr . te ( Asc i i _Fi 1 e , Ch ) ; 

End; 

Check_Auxport; =Ch; 

End 

else 

Check_Auxport: =Char (NUL) ; 

End;  tot  Check_Auxport} 

Function  Find_Environment (What:Long_String) :Long_String; 

{This  tunction  searches  the  environment  tor  a  particular  specitier  ot 
the  torm;  ID=Te;:t 

Input:  What  -  the  ID  to  look  tor 

Output!  The  Text  ot  the  environment  string  or  empty  it  not  tound 

■^ype  Environment  =  Array  Cl.. 327673  ot  Char; 

Var  Environ: ''Environment; 

Environ_Segment  :  word; 

S: Long_Str i ng ; 

I ! Integer ; 

Begin 

Er vi ron_Segment  :=  MemWCPret i xSeg; t002C3 ; 

Finc!_Envi ronment :  =  '  ' ;  {Assume  not  toundl 

What : =What+  '  -  ' ; 

Environ: =PTR (Envi ron_Segment ,0) ; 

I:  =  l; 

While  Environ'd]  <>  Do 
Beg  i  n 
S:  =  "; 


i*  Reprinted  with  extensive  moditications  trom  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  ot  Sybex ,  Inc. 
Copyright  19S7  Sybex,  Inc.  All  rights  reserved. 
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Repeat  Begin 

S:  =S+Environ'^C  I  ] ; 

I:=I+1; 

End 

Until  Environ^! I]  = 

H  (Length (S)  >=  Length (What) )  and 

(Copy (S, 1 , Length (What) )  =  What)  Then 

Find_Environment:=Copy(S, Length (What ) +1 , Length (S) -Length (What) ) 
else 

I:=I+1; 

End; 

End;  iof  Find_Environment> 

Procedure  NoFi le (S: Long_String) ; 

{This  procedure  opens  a  window  and  notifies  the  user  that  a  file  was 
not  found! 

Begin 

If  0pen_Window(42,2,80,5,Flag_Borders, 'No  file')  =  0  then; 

ClrScr; 

Write( 'Cannot  find  file  ',S); 

OK  (  "  ) ; 

If  Close_WindDw  then; 

End;  {of  NoFi lei 


(♦  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1937  Sybex,  Inc.  All  rights  reserved. 
♦#♦*■**■«■♦*•*♦♦#***#*■*♦**♦♦  End  Edwards  Excerpt  *********#***»***-*****4*) 

(♦♦*#•**•******»♦**#»♦»«•♦#  Start  Hall  Excerpt  *♦****#*♦**#*#♦•»**♦♦♦♦*#) 

Procedure  BetEquip  (  VAR  List  :  EquipmentLi stType  ); 

CONST  SYS_INT  ;  byte  =  fll; 

VAR  Regs  :  Dos. Registers; 

BEGIN 

With  List  DO  BEGIN 
With  Regs  DO  BEGIN 


(*  The  library  BetEquip  appears  in  The  Turbo  Pascal  Toolbook  by  Namir 
C.  Shammas  (ed.)  and  has  been  reprinted  with  the  permission  of  the 
publisher  M  S<  T  Books  1-800-533-4372.  Minor  modifications  by  Nelson 
Ard. 
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(♦*♦**♦*■***•*•■*•*****♦******  Continue  Hall  Excerpt  ***•*«■***«■*♦*♦#***»***) 
INTR  (  SYS.INT,  Regs); 

NbrO-f Printers  :=  AH  SHR  6; 

IsGamePort  ;=  (AH  AND  tlO)  >  1; 

NbrO-f Serial  :=  (AH  AND  fOE)  SHR  1; 

IsDiskette  ;=  (AL  AND  $01)  =  1; 

IF  IsDiskette  THEN 

NbrOf Diskettes  ;=  (AL  SHR  6)  +  1 
ELSE 

NbrO-f Diskettes  ;=  (AL  SHR  6)  +  0; 

Initial  Video  :=  (AL  AND  $30) SHR  4; 

CASE  InitialVideo  OF 

1  :  InitialVideo  ;=  0; 

2  :  InitialVideo  ;=  2; 

3  ;  InitialVideo  :=  7; 

END; 

RAMOnBoard  ;=  ( (AL  AND  $0C;<  +  1)  *  16; 

END;  {  Regs  } 

Wri teln; 

Writeln  ('No.  of  Printers  =  NbrOf Printers  ); 

Writeln  ('No.  of  Serial  =  NbrOfSerial  ); 

Writeln  ('No.  of  Diskettes  =  ',  NbrOf Diskettes  ); 

Writeln  ('InitialVideo  =  ',  InitialVideo  ); 

Writeln  ('RAMOnBoard  =  ',  RAMOnBoard  ); 

Writeln  ( '  IsGarriePort  =  ',  IsGamePort  ); 

END; 

END; 

(*  The  library  GetEquip  appears  in  The  Turbo  Pascal  Toolbook  by  Namir 
C.  Shammas  (ed.)  and  has  been  reprinted  with  the  permission  of  the 
publisher  M  T  Books  1-800-533-4372.  Minor  modifications  by  Nelson 
Ard. 

**♦**•**♦•******♦*♦**♦♦•»••►*♦♦■)(•#  End  Hall  Excerpt  »*»********♦«*♦***♦**♦■») 

BEGIN 

END. 


APPENDIX  Y 


i 


SOURCE  LISTING  FOR  UNIT  MNDON 

} 


{****  WNDOW.PAS  ***♦) 
(*♦**  This  is  a  library  o-f  general  purpose  routines  to  **#*) 
(*♦*»  display  windows  and  control  menu  bars  tor  selectors  on  ****) 
{****  the  IBM  PC  screen.  **♦*) 
(**«•*  •»*#*) 
(*♦*♦  Reterence:  Edwards,  C.  C. ,  Advanced  Techniques  in  Turbo  *♦**) 
{****  Pascal,  pp.  73-97,  Sybex ,  Inc.,  1987  ****) 
(***#  »♦#«■) 
(**♦*  Moditied  slightly  to  make  a  Turbo  Pascal  4.0  Unit  ♦***) 
(»**«  ****) 
{****  Last  Modi -fi cation:  Sep  89  ****) 


(*******#**»#*♦♦**♦****»*■*•*****#*****♦♦♦«•«**♦*#♦*«•♦*♦***»♦***##♦♦*•*♦) 

UNIT  Wndow; 

INTERFACE 

(###«•**#«•***♦##♦*#♦*#  Start  Edwards  Excerpt  ***♦•**•»****♦#******♦) 

USES  General ,  Crt,  Dos; 

C$V-} 

Type  Window_Link  =  ' Window_Control_Block; 

Screen_Line  =  Array  Cl.. 80]  o-f  WORD;  {I  changed  per 

upgrade  } 

Screen_Array  =  Array Cl.. 25]  of  ScrBen_Line; 

Screen_Block  =  ArrayC 1 . . 2000]  of  Integer; 

Window_Title  =  StringCSO]; 

Window_Control_Block  =  Record 

XI ,Y1 , X2, Y2: Byte;  {Window  boundaries] 
X,Y:Byte;  {Cursor  location] 

ID: Byte; 

Menu_Index; Integer; 

Menu_TopY: Integer ;  {The  top  item  in  a  menu] 
Flag:Byte; 

Foreground, Menuground: Byte; 

(♦  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex,  Inc. 
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(***♦**•»*«•♦**#*♦**■»*#  Continue  Edwards  Excerpt  ****#♦*♦♦«•♦****■#♦**#) 

Title: Window_Ti  tie; 

Back_Link : Wi ndow_Li  nk ; 

Screen_Contents: Screen_Bl oc  k ; 

End;  Cot  Record  Window_Control_Block} 

Border_Type  =  (Single, Double) ; 

Long_String  =  STRINGC2553; 

Const  Foreground: Byte  =  LightGray;  {Color  within  the  windows} 
Menuground:Byte  =  LightGray;  {Color  ot  the  menu  borders) 
Background: Byte  =  Black;  {Background  color) 

{These  are  the  bit  values  ot  the  tield  "Flag"  in  Window_Control_Block) 
Const  Flag_Borders  =  $01;  {Borders  on  the  window) 

Flag_Goto  =  $02;  (Goto  to  this  window  is  allowed) 

Flag_Relocate=  $04;  {Window  may  be  relocated) 

Flag_Close  =  $08;  {Window  may  be  closed  trom  main 

menu) 

Var  W, 

Act i ve_Wi ndow; Wi ndow_Li nk ; 

Window_Count; Integer; 

Window_P'i:'ed_Part:  Integer; 

Mono; Boolean; 

{Forced  to  assign  these  variables  on  the  same  line  -  type  mismatch  ) 
Screen , 

Screen_New,Screen_Temp:-'"Screen_Array; 

Procedure  SetColor (Col or; Byte) ; 

{This  procedure  sets  the  torground  color) 

P'-ocedure  SetBackground  (Color :  Byte) ; 

{This  procedure  sets  the  background  color) 

Procedure  Get_Dummy_Screen; 

{This  procedure  changes  Screen  to  point  to  a  dummy  screen  area  on 
the  heap) 

Procedure  Get_Real_Screen; 

{This  procedure  undoes  the  work  ot  Get_Dummy_Screen) 


(*  Reprinted  with  extensive  moditications  trom  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  ot  Sybex ,  Inc. 
Copyright  1987  Sybex,  Inc.  All  rights  reserved. 
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(*»***♦***♦***•♦»**«■*♦  Continue  Edwards  Excerpt  it*******************) 
Procedure  Build_Borders(Lines:Border_Type) ; 

{Purpose; 

This  procedure  builds  a  border  around  a  window. 

Input: 

LinesrSingle  =  Single  line  border 
Double  =  Double  line  border 


Output: 

None  j 

Function  Open_Window (XI ,Y1 ,X2,Y2: Byte; Flag: Byte; 

Name; Window_Ti tie) : Byte; 

{Purpose: 

This  -function  opens  a  window  on  the  screen  and  places  a  border 
around  it. 

Input ; 

X1,X2,Y1,Y2  are  the  coordinates  o-f  the  window  to  be  opened. 
Flag  is  a  bit  mask  o-f  -functions  allowed  in  this  window 
Name  is  the  title  o-f  the  window 

Output; 

Open_Window  returns  a  byte  as  -follows; 

0  =  Window  opened  OK 

1  =  Invalid  window  coordinates 

2  =  Not  enough  memory 


Function  Cl ose_Window; Boolean; 

{This  -function  closes  the  currently  active  window. 

Output; 

Returns  a  True  i-f  there  is  no  currently  active  window. 


Funct i on  Save_Wi ndow; Wi ndow_Li nk ; 

{This  procedure  saves  o-f-f  the  current  window  S<  closes  it 
Output : 

Pointer  to  the  saved  window 


(*  Reprinted  with  extensive  modi -fi  cat  ions  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1987  Sybex,  Inc.  All  rights  reserved. 
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(**•»****•*♦■******«#***  Continue  Edwards  Excerpt  ##*•#*#*«•*#*♦**♦****•«•) 


Function  Restore_Window(W: Window_Link) :Boolean; 

[This  procedure  re-creates  a  saved  window  on  the  screen) 

Function  Get_Window (Which; Integer) : Boolean; 

{This  procedure  brings  window  “Which"  to  the  top  of  the  screen) 
Function  Move_Wi ndow (X , Y: Integer) iBoolean; 

{This  procedure  moves  the  current  window  by  "X,Y‘'  locations) 

Procedure  Write_Status(S:Long_String;Attrib; Integer) ; 

{This  procedure  writes  to  line  25  of  the  display 

Input;  S  =  String  to  be  written 

Attrib  =  Video  attribute  byte  to  use 


Function  Froces5_Wi ndow_Menu (Var  Menu): Byte; 

{This  procedure  will  display  and  process  a  menu  in  the  currently 
active  window. 

The  menu  may  be  longer  or  shorter  than  the  actual  window. 

Input;  Menu  -  A  pointer  to  a  record  with  the  following  format; 

Bytes  0-1:  An  integer  giving  the  number  of  string 
variables 

Bytes  2-n:  A  series  of  String  variables. 

Outout;  The  function  returns  the  index  (1  relative)  of  the  item 
selected.  A  zero  is  returned  if  the  ESC  key  is  pressed 


Procedure  Init_Window_Inf o; 

{This  procedure  initializes  all  the  of  data  used  by  the 
windowing  routines) 

IMPLEMENTATION 

Procedure  SetColor (Color ; Byte) ; 

{This  procedure  sets  the  forground  color 

Input;  Color  =  Color  to  set  forground  to  ) 

Begin 

Foreground : =Col or ; 

Textcolor (Color) ; 

End;  Cof  SetColor) 

(♦  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1997  Sybex,  Inc.  All  rights  reserved. 
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(♦***♦*****•»■»♦*******  Continue  Edwards  Excerpt  *#*#**♦♦###*#♦♦#**♦*) 

Procedure  SetBackground (Color;Byte) ; 

{This  procedure  sets  the  background  color 

Input:  Color  =  Color  to  set  background  to 

J 

Begin 

Background : =Col or ; 

Textbackground (Color) ; 

End;  ioi  SetBackgroundJ 

Procedure  Get _Dummy _Sc r een ; 

{This  procedure  changes  Screen  to  point  to  a  dummy  screen  area  on 
the  heap) 

Begin 

I-f  Screen_New  Nil  then 
Begin 

Screen_New'-;  =Screen'‘-; 

Screen: =Screen_New; 

End; 

End;  {o-F  Get_Dummy_Screen} 

Procedure  Get_Real_Screen; 

{This  procedure  undoes  the  work  o-f  Get_Dummy_Screen} 

Begin 

It  Screen_New  <>  Nil  then 
Begin 

Scr  een _T emp  :  =Scr een_New  '- ; 

Screen ; =Screen_Temp; 

End; 

End;  {o-f  Get_Real_Screen} 

Procedure  Bui ld_Bordere (Lines: BQrder_Type) ; 

{Purpose: 

This  procedure  builds  a  border  around  a  window. 

Input: 

Lines:Single  =  Single  line  border 
Double  =  Double  line  border 

Output; 

None  } 

(*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
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Const  Upper_Le'ft; Array  CO..  13  o-f  Chai"  =  (#218, ''J); 

Upper_Right: Array  CO..  13  o-f  Char  =  (#191, #187); 
Lower_Le'ft:  Array  CO.  .13  o-f  Char  =  (#192, #200); 
Lower_Right; Array  CO..  13  o-f  Char  =  (#217, #188); 

Vertical: Array  CO.. 13  of  Char  =  (#179, #186); 

Horizontal :  Array  CO..  13  o-f  Char  =  (#196, #205); 

Var  Index: Byte  Absolute  Lines; 

XX, YY, I: Byte; 

Integer; 

Begin 
I:  =  l; 

With  Active_Window'-  do 
Begin 

If  (Flag  and  Flag_Relocate)  =  Flag_Relocate  then 
Upper_Lef  t  C 1 3 ;  =''  J 
else 

Upper _Lef  t  C 1 3 : =#201 ; 

MG; =Menuground  shl  8; 

H;=MG-*-Byte (Horizontal  C Index 3) ; 

V;  =MG-*-Byte  (Vertical  C  Index  3) ; 

Screen  '  CYl ,  X 1  3 :  =  (MG)  ■^Byte  (Upper_Left  C  Index  3 ) ; 

Screen  '  CYl ,  X23 ;  =  (MG)  •♦-Byte  (Upper_Right  C  Index  3 )  ; 

Screen ''CY2, XI 3;  =  (MG) -♦-Byte (Lower _LeftC Index 3) ; 

Screen"  C Y2 ,  X23 ;  =  (MG)  -t-Byte (Lower _Right  C  Index  3 ) ; 

XX;=X1-H; 

While  XX  <  X2  do 
Beg  1  r 

If  I  <=  Length (Title)  then 

Screen''[Yl ,  XX 3  ;  =  (Foreground  shl  8) -t-Byte  (Ti tleC  I  3 ) 
-♦•  Index  shl  11 

else 

Begin 

FiilWDrd(Screen-'CYl,XX3,X2-XX,H) ; 

XX:=X2; 

End ; 

XX:=XX+1; 

I;=l-H; 

End; 

FiHWord(Screen  ■■■CY2,XH-13,X2-X1-1,H) ; 


(■»  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  198'’  Sybex,  Inc.  All  rights  reserved. 

**#*-«-**#**4** ***•*#•»**  Continue  Edwards  Excerpt 


(#•»■#»**♦***#***#*♦*♦*  Continue  Edwards  Excerpt  ♦♦♦*■*■)(•♦♦**#•*#**♦**##) 


For  YY:=Y1+1  to  Y2-1  do 
Begin 

Screen-'CVY,X13:=V; 

Screen'CYY,X2];=V; 

End; 

End;  {of  With! 

End;  {of  Bui ld_Borders> 

Function  Open_Window(Xl ,Y1 ,X2,Y2:Byte;Flag:Byte; 

Name: Window_Ti tie) ;Byte; 

{Purpose; 

This  function  opens  a  window  on  the  screen  and  places  a  border 
around  it. 

Input : 

Xl,X2,YliY2  are  the  coordinates  of  the  window  to  be  opened. 

Flag  is  a  bit  mask  of  functions  allowed  in  this  window 
Name  is  the  title  of  the  window 

Output : 

Open_Wir!dow  returns  a  byte  as  follows: 

0  =  Window  opened  OK 

1  =  Invalid  window  coordinates 

2  =  Not  enough  memory 

J 

Var  El  ock;  Wi  ndow_l_i  nk; 

Line_Length,Window_Size, I : Integer; 

Y, Borders: Byte; 

Begin 

If  Active_Window  <>  Nil  then 

If  Acti ve_Window' .Flag  and  Flag_Borders  =  Flag_Borders  then 
Bui  1  d_Border5 (Si ngl e) ; 

Li ne_Length :  =  <  X2-X 1  +  1 ) ; 

Borders: =Byte (FI ag  and  Flag_Border5  =  FI ag_Borders) ; 

Wi ndow_Si ze: =Li ne_Length* (Y2-Y1  +  1 )  ■»2+Window_Fi xed_Part ; 

If  (XI  <  1)  o^-  (X2  >  80)  or  (Y1  <  1)  or  (Y2  >  25)  or 
(X2-X1  ■■  2)  or  (Y2-Y1  <  2)  then 
Oper._Wi  ndow;  =1 

else  if  (MemAvail  '  Wi ndow_Size+l )  and  (MamAvail  >=  0)  then 
Qpen_Window: =2 
else  Begin 

SetMem (Block ,Window_Size) ; 

Block". XI :=X1; 

(♦  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
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Block''.  X2:=X2; 

Block-'-.Ylr^Yl; 

Block'-.  Y2:=Y2; 

Block'-.  X:=WhereX; 

Block^ . Y;=WhereY; 

Block^ .Title: =Name; 

B1  oc  k "- .  FI  ag :  =F1  ag ; 

B1  ock'".  Menu_  Index ;  =0; 

Block-'-.  Mer,u_T  opY :  =0 ; 

Block-*-. Foreground :=Foreground+ (Background  shl  4); 

Block' .Menuground:=Menuground+(Background  shl  4); 

Bloc  k  -' .  Bac  k  _Li  n  k ;  =Ac  t  i  ve_Wi  ndow ; 

Acti ve_Window: =Block; 

I:  =  l; 

For  Y:=Y1  to  Y2  Do 
Begin 

Move  (Screen''-CY,X13  ,Block--.Screen_ContentsC  1 1 , 
Line_Length-»2) ; 

I :  =  I +L i ne_Lengt  h ; 

End; 

Wi ndow 

( Xi ■‘•Bo'^ders ,  Yl+Borders,  X2-Borders,Max  ( (Y2-Borders)  ,  (Yl+Borders+l )  )  )  ; 

I-f  Borders  =  1  then 

Bui ld_Borders (Double) ; 

GotoXY  (1,1); 

Window_Count: =Window_Count+l ; 

Block-'.  ID:=Window_Count; 

Dpen_Wi ndow: =0; 

End; 

End;  -(of  Open_Window} 

^unction  Cl o5e_Wi ndow: Boolean; 

CThis  -function  closes  the  currently  active  window. 

Output ; 

Returns  a  True  i-f  there  is  no  currently  active  window. 


Var  Block:Window_Link; 

Line_Length ,Window_Size, I : Integer; 

Y, Borders: Byte; 

Begin 

I-f  Acti ve_Wi ndow  =  Nil  then 
Cl ose_Wi ndow: =True 
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else 

Begin 

B1 oc  k ; =Ac t i ve_Wi ndow ; 

Line_Length:  =  (Block'^'.  X2-Block'‘-.  Xl  +  1 ) ; 

Window_Si2e:  =Line_Length* (Block''.  Y2-Block'''.  Yl  +  1  )*2 
+  Window_Fixed_Part; 

I:=l; 

For  Y:=Block''.  Y1  to  Block"'.  Y2  Do 
Begin 

Move(Block-^.Screen_ContentsCn  ,Screen''CY, Block".  XI]  , 
Line_Length«2) ; 

I :=I+Line_Length; 

End; 

Acti  ve_Window:=Block'"'.Back_Link; 

H  Acti ve_Window  =  Ni 1  then 
Windowd ,  1 ,80,25) 
else  with  Acti ve_Wi ndow"'  do 
Begin 

&orders;=Byte(Flag  and  Flag_Borders  =  FI ag_Borders) ; 

Window (Xl+Borders,Yl+Border5,X2-Border5, Max ( (Y2-BQrders) , 
(Yl+Borders+l ) ) ) ; 

I-f  Borders  =  1  then 

Bui ld_BQrders (Double) ; 

SetCol  (Foreground  and  7); 

SetBackground (Foreground  shr  4); 

End; 

BotoXY(Block''.  X, Block"'.  Y) ; 

FreeMem (Block ,Window_Si2e) ; 

Window_Count: =Window_Count-l ; 

Cl ose_Wi ndow: =Fal se; 

End; 

End;  Co-f  Cl 05e_Wi ndow} 

Function  Save_ Wi ndow: Wi ndow_Link; 

(This  procedure  saves  o-f-f  the  current  window  h  closes  it 
Output : 

Pointer  to  the  saved  window 

J 

Van  W: Wi ndow_Li nk; 

Beg  1  n 

W: =Acti ve_Window; 
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H  Open_Window(W''-.  XI, W''.Y1,W-^.X2,W"'.Y2,W-''. Flag, W"'. Title)  >  0  then 
Save_Window:=Ni 1 
else 

Begin 

Active_WindDw'-.  1D;=W'' .  ID; 

Acti  ve_Window"'.  Menu_Index :  =U‘'.  Menu_Index; 

Acti  ve_Window"'.  Menu_TopY;  =W*.  Menu_TopY; 

W; =Acti ve_Window; 

Acti  ve_Window:=W"-.  Back_Link; 

H  ClQse_Window  then; 

Save_Windowi =W; 

End; 

End;  Co-f  Save_Window} 

Function  Restor e_Wi ndow ( W: Wi ndow_Li nk ) : Bool ean ; 

CThis  procedure  re-creates  a  saved  window  on  the  screen! 

Begin 

SetColor (W". Foreground  and  7); 

SetBackground  (W  .  Foreground  shr  4); 

H  Open_Window(W' .XI, W  '.Y1,W'-.X2, W'-.Y2,W--. Flag, W-'. Title)  >  0  then 
Restore_Window: =True 
el  St 

Begin 

Acti  ve_Window" .  ID:=W-"-.  ID; 

Acti  ve_Window"-.  Menu_Index:  =W''.  Menu_Index ; 

Acti  ve_Window'.  Menu_TopY:  =W''.  Henu_TopY; 

W  . Back_Li nk ; =Act i ve_Wi ndow; 

Acti ve_WindDw: =W; 

Resto-e_Window; =Clase_Window; 

End; 

End;  Co-f  Rest  or  e_Wi  ndow! 

-unction  Get_Wi ndow (Whi ch; Integer ) ; Boolean; 

CThis  procedure  brings  window  "Which"  to  the  top  o-f  the  screen! 

Var  WindowP: Window_Link; 

Functi on  Move_Windows: Boolean; 

Var  W: Window_Li nk; 

Begin 

W: =Save_Window; 
li  W  =  Nil  then 

Nove_Wi ndows; =True 
Else 

If  W'. ID  <>  Which  then 
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Begin 

H  Move_Window5  then 
Move_Windows:=True 
else 

Move_Wi ndows: =Restore_Wi ndow (W) ; 

End 

else 

Begin 

WindowP:=W; 

Move_Windows: =False; 

End; 

End;  to-f  Move_WindQws} 

Begin  {Outer  block  of  Set_Window} 

Get_Window: =False; 

WindowP: =Acti ve_Window; 

While  (WindowP  <>  Nil)  and  (WindowP". ID  <>  Which)  do 
WindowP; =WindowP". Back_Link; 

If  WindowP  =  Ni 1  then 
Get_Window: =True 

else  if  Acti ve_Window". ID  <>  Which  then 
Beg  i  n 

6et_Dumfny_Screen ; 

If  Move_Windows  then 
Set_Wi ndow; =True 
el  se 

Set _Wi ndow ; =Restore_Wi ndow (WindowP) ; 

Get_Real _Screen ; 

End; 

End;  Cof  Get_Window} 

Function  Move_Window(X,Y; Integer) ;Boolean; 

{This  procedure  moves  the  current  window  by  "X,Y"  locations) 

Var  W; Window_Link; 

XC, YC,Line_Length , YI , Borders; Byte; 

I ; Integer; 

Begin 

W;=Acti ve_Window; 

If  W  =  Nil  then 

MovB_Wi ndow; =True 

else  if  (W'.Xl+X  <  1)  or  (W'.Yl+Y  <  1)  or  (W".X2+X  >  80) 

or  (W".Y2+Y  >  24) 
then  Move_Window;=True 
else  Begin 

XC; =WhereX; 
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YC; =WhereY; 

L i  ne_Leng t h :  =W'‘- .  X2-W"- .  X 1 + 1 ; 

i !  =  1 ; 

For  YI;=W'-.Y1  to  W'-.Y2  do 
Begin 

Exchange (W"'.Screen_ContentsC  13  jBcreen'CYI  ,W^'.  XI 3 , 

L ine_Length*2) ; 

I:=I+Line_Length; 

End; 

W"  .  X1:=W-\X1+X; 

W-'  .Y1:=W"-.Y1+Y; 

W  '.  X2;=W'-.  X2+X; 

W''.Y2:=W'-.Y2+Y; 

I:  =  l; 

For  YI:=W". Y1  to  W". Y2  do 
Begin 

Exchange  (W'-.  Screen_Contents[  I  3  , Screen  '  CYI  ,W"'.  XI  3  , 
Line_Length*2) ; 

I ;=I+Line_Length; 

End; 

Borders;=Byte(W' .Flag  and  Flag_Border5  =  FI ag_Border5)  ; 
Window  (W".  Xl+Border5,W  .  Yl+Border5,W'^\  X2-Border5, 

Max ! (W" . Y2-Borders) , (W . Yl+Borders+l ) ) ) ; 
GDtcXY(XC,YC) ; 

End; 

End;  -Cot  Move_Window? 

Procedure  W*- i te_Statu5 <S: Lor!g_String;  Attri b:  Integer) ; 

C'his  procedure  writes  to  line  25  ot  the  display 

Inpijt:  E  =  String  to  be  written 

Attrib  =  Video  attribute  byte  to  use 

Var  X:Byte; 

Begin 

Attrib; =Attrib  shl  8; 

For  X:=l  to  80  do 

H  X  >  Length (S)  then 

Screen  "C25 ,  X  3 ;  =Attri  b+i^20 
el  se 

Screen-[25,X];=Attrib+Byte(S[X3) ; 

End;  {ot  W''ite_Statu5/ 


i* 
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Function  Keyin  (Checkit: Boolean) : Integer ; 

CThis  procedure  reads  in  a  key  -from  the  keyboard. 

Input:  Checkit  =  True  i-f  we  should  call  Special _F‘rocessing  to  check  it 
=  False  i-f  we  should  not  call  Special_Processing 

Output:  The  value  of  the  key  read 

Function  keys  are  returned  with  a  0  in  the  low  byte  and  the 
extended  scan  code  in  the  high  byte 

•» 

j 

Var  C;Char; 

Key: Integer; 

Done: Boolean; 

Begin 

Done: =True; 

Repeat 

Begin 

Repeat  until  KeyPressed; 

C  ;=  ReadKey; 

I-f  (C  =  #0)  then 
Beg  i  n 

C  ;=  ReadKey; 

Key;=Byte(C)  shl  8; 

End 
E'l  se 

Key: =Eyte (C) ; 

H  Check: t  then 
Done:=TRLlE; 

End 

until  Done; 
f'eyi  n:  =Key ; 

End;  Co-f  Keyin} 

Function  Process_Wi ndQw_Menu (Var  Menu): Byte; 

•CThis  procedure  will  display  and  process  a  menu  in  the  currently 
active  window. 

The  menu  may  be  longer  or  shorter  than  the  actual  window. 

Input;  Menu  -  A  pointer  to  a  record  with  the  -following  format; 

Bytes  0-1:  An  integer  giving  the  number  of  string 
vari abl es 

Bytes  2-n:  A  series  of  String  variables. 
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Output;  The  -function  returns  the  index  (1  relative)  of  the  item 
selected.  A  zero  is  returned  i-f  the  ESC  key  is  pressed 

j 

Var  Menu_Count: •■'■Integer; 

Menu_Item:  "■Long_String; 

Menu_0-f-fset;  Integer  Absolute  Menu_Item; 

Window_Size, I , J ,Key: Integer; 

Done; Boolean; 

Procedure  GoUp; 

•CThis  procedure  moves  up  to  the  prior  item  in  the  menu! 

Begin 

Menu_0-f  -f  set ;  =Menu_0-f  -f  set -Length  (Menu_  I  tem'"^ )  - 1 ; 

I; =1-1; 

I-f  I  <  Active_Window'',Menu_TopY  then 
Begin 

GotoXYd,!); 

InsLine; 

Wri  te  (Menu_Item-'  ) ; 

Act  i  ve_Wi  ndow  ■■ .  Menu_Top  Y;  =  I ; 

End; 

End;  Co-f  GoUp> 

P'^ocedure  GoDown; 

CThis  procedure  moves  down  to  the  next  item  in  the  menu} 

Begin 

Menu_0-f  f  set;  =Menu_0t-f set-t-Length  (Menu_Item''')  -*-1 ; 

I;=I+1; 

If  I  =  Acti ve_Window--.Menu_TopY+Window_Size  then 
Beg  i  n 

GotoXYd,!)  ; 

DelLine ' 

GotoXY ( i ,Window_Size) ; 

Write  (Menu_Item''') ; 

Act i  ve_Wi  ndow  .  Menu_TopY;  =Acti  ve_Wi  ndow  .  Menu_TopY-t- 1 ; 

End; 

End;  Cof  GoUp) 

Procedure  GoHome; 

CThis  procedure  positions  the  cursor  in  the  home  position} 
Begin 

While  I  >  1  do 
GoUp; 

End;  -Cof  GoHome} 

Procedure  GoEnd; 

'This  procedure  positions  the  cursor  in  the  end  position} 
Begin 
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While  I  <  Menu_Count^  do 
BoDown ; 

End;  {of  GoEndJ 
Procedure  Set_Highl ights; 

Begin 

With  Acti ve_Windaw''  do 
Begin 

H  I  =  Menu_Inde>:  then 
Begin 

Tex tcol or (Foreground  shr  4); 

Textbackground (Foreground  and  7); 

End 

else  if  I  =  Abs(Menu_ Index)  then 
Begin 

Textcolor (Blue) ; 

Tex tBackground (Black) ; 

End 
el  se 
Begin 

Textcolor (Foreground  and  7); 

TextBackground (Foreground  shr  4); 

End; 

End; 

End;  Cof  Set_Highl ights] 

Begin 

Menu._CQunt!  =Addr  (Menu) ; 

Menu_Item; =Ptr (Seg (Menu) ,0f s(Menu) +2) ; 

Wi  ndow_Si  2e;  =Acti  ve_Wi  ndow'-.  Y2-Acti  ve_Wi  ndow"-.  Yl-1 ; 
If  Acti ve_Window'-. Menu_Inde;;  <>  0  then 
Beg  i  n 
ClrScr ; 

Act  i  ve_Wi  ndow'".  Menu_TopY:  =1 ; 

For  I:=l  to  Min  (Menu_Count'',Window_Si2e)  do 
Beg  i  n 

GotoXY(l,I); 

Set_Highl ights; 

Write(Menu_Item-) ; 

Merrj_Of  f  set :  =Menu_Of  f  set+Length  (Menu_Item'-)  +1 ; 
End; 

If  Window_Size  =  1  then 
Bui ld_Borders (Double) ; 

End; 

Menu_Item; =Ptr (Seg (Menu) ,0f s (Menu) +2) ; 
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For  I;=l  to  Acti ve_Window'' .Menu_Index-l  do 

Menu_0-f -f  set;  =Menu_0-f-f  set+Length  (Menu_Item^)  +1 ; 

I:=Ma;-:  (Acti  ve_Window"'.  Menu_ Index ,  1 ) ; 

Acti  ve_Wi ndow''. Menu_ Index :  =Mi n (Acti ve_Wi ndow'^.  Menu_ Index , 0) ; 
Done; =False; 

Write_Status ( 'Choose  item  using  the  arrow  keys  "'X '  S<  "'Y'  ' 

+  #179'  Press  ESC  to  abort  '+ 

#179'  Press  ''''Q#217'  when  done ', Foreground  shl  4); 

Repeat  Begin 

TextCol or  (Active_Window'"  . Foreground  shr  4); 
TextBackground (Acti ve_Window'''. Foreground  and  7); 

GotoXY  ( 1 , 1-Acti  ve_WindDw''.Menu_TopY+l ) ; 

Write (Menu_Item'') ; 

Set_Highl ights; 

GotoXY  ( 1 , 1-Acti  ve_Window''.  Menu._TopY+l ) ; 

Cur sor _Si 2 e (Cursor _Invi sidle, Mono) ; 

Key: =Keyi n (True) ; 

Write (Menu_Item" ) ; 

Case  Lo(Key)  o-f 

0;  Case  Hi  (Key)  o-f 

72:  H  I  >  1  then 
GoUp 

else 

GoEnd; 

80;  H  I  <  Menu_Count"-  then 
GoDown 

el  se 

GoHome; 

73:  For  J;=l  to  Window_Si2e  do 
H  I  >  1  then 
GoUp; 

81;  For  J:=l  to  Window_Si2e  do 
If  I  <  MBnu_Count''  then 
GoDown; 

7 1 ;  GoHome ; 

79;  GcEnd; 

Else  Beep (100); 

End;  {of  easel 
1 3 :  Beg i n 

Pr ocess_Wi ndow_Menu ; = I ; 

Done; =True; 

End; 
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27:  Begin 

Process_Window_Menu; =0; 

Done:=True; 

End; 

Else  Beep (100); 

End;  {of  case) 

End 

Until  Done; 

With  Active_Window‘''-  do 
Begin 

Menu_Index:=I; 

TextCol or (Foreground  and  7); 

TextBackground (Foreground  shr  4); 

End; 

Write_Statu5 ( ' ' , Foreground) ; 

Cursor_Si ze (Cursor_Smal 1 ,Mono) ; 

End;  (of  Praces=_Window_Menu] 

Procedure  Init_Window_Inf o; 

{This  procedure  initializes  all  the  of  data  used  by  the 
windowing  routines! 

Var  Regs; Registers; 

Beg  i  n 

Intr (til ,Regs) ; 

Mono: = (Lo (Regs. AX)  and  t30)  =  t30; 

If  Mono  then 

Screen : =Ftr ( tBOOO , 0) 
else 

Screen :=Ptr (tB800,0) ; 

Acti ve_Window: =Ni 1 : 

Screen_Temp; =Screen; 

Wi ndow_F i xed_Part ; =Si zeof ( Wi ndow_Control _B1 ock ) 

-  Sizeof (Screen_Block) ; 

If  (MemAvail  <  0)  or  (MemAvail  >  Sizeof (Screen_Array) +100)  then 
{  Changed  per  upgrade  to  accomodate  TP  4.0  MemAvail  } 

New (Screen_New) 

el  se 

Screen_New: =Ni 1 ; 

Wi ndow_Count : =0; 

End;  Cof  Ini t_Wi ndow_Inf o! 

BEGIN 

END. 
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APPENDIX  Z 


SOURCE  LISTING  FDR  UNIT  XHODN 

} 


(**♦*  XMODM.PAS  *♦**) 

(***»  This  is  the  unit  that  abstracts  all  packet  and  -file  ****) 

(♦**♦  transfers  -for  the  Xmodem  protocol.  The  interface  is  ****) 

(***#  derived  from  the  Turbocom.com  program  in  the  first  ♦*♦♦) 

(♦**♦  reference,  however,  the  implementation  has  been  rebuilt  **«■*) 

for  command  and  data  transfer  from  the  second  source.  *♦**) 
(♦***  ***«•) 

(**♦*  References:  Edwards,  C.  C. ,  Advanced  Techniques  in  Turbo 

Pascal,  pp.  220-275,  Sybex ,  Inc.,  1987  ♦**■*) 

{**** 

(****  Krantz ,  D.  ,  "Christensen  Protocols  in  C,"  *•»♦*) 

(*♦♦•»  Dr.  Dobb's  Journal,  v.  10,  no.  6,  pp.  66-89,  ****) 

(****  June  1985.  ****) 

(.****  **♦#) 

{****  Modified  by  Nelson  Ard  »«•♦*) 

♦***) 

(****  Last  Modif ication:  Sep  89  ♦*«•#) 


(♦♦**»*  *4**^*#*#«#*****»*#***«-»«*******##***#***#*#**»***»'»**##***«*  ) 

UNIT  Xmodm; 

INTER'^ACE 

USES  Miscpack,  General,  Wndow,  Datacom,  Support,  Crt: 

{  13  Jun  89  -  changed  status  variable  to  enumerated  data  type  fo*' 

clarity  changed  Send_Record,  Recei ve_Record  to 
independent  procedures  (callable  by  outside  processes) 

15  Jun  89  -  eliminated  global  variables,  moved  formal  declarations 
for  command  packet  building  blocks  into  Interface 
section 

22  Jul  8®  -  added  Respond_by_f i le 

28  Jul  89  -  added  a  variable  to  control  transfer  monitor  windows 

12  Aug  89  -  extended  variable  Monitor_transf ers  to  include  the 
Update_5tatu5  and  the  monitor  window 

24  Aug  89  -  gated  ReadAu,;  and  WriteAux  to  show  only  data  characters 
changed  Re£pond_by_f ile  to  function  to  obtain  status 


broke  long  resync  problem  with  Command_X'fer  syncing  on 
CAN  character  ■from  master  and  resetting  a-fter  10  block 
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CONST 


CEE  =  $4: 


TYPE 

Result 


.sync,  i 

_done,  { 

.ACK,  { 

_old_ACK,  { 

.EOT,  { 

_junk,  { 

.timeout,  { 

.errors,  { 

.lost.block,  C 

Inak ,  { 

.CAN,  C 

.keypressed ,  C 

.sync,  -C 

.done,  { 

'ack,  { 

_CEE_sync ,  C 

cnf  r 

.timeout,  C 

.errors,  { 

_NAK_sync,  -C 

"nak7  C 

.CAN ,  { 

.Junk,  { 

.keypressed  ) ;  I 


Waiting  for  sync 
completed 

Good  Rx,  within  retrymax 
Good  Rx,  old  block 
Good  Rx ,  EOT  char 
Garbage  on  the  line 
nothing  heard 
Bad  Rx,  retrymax  exceeded 
Bad  Rx ,  out  of  sync 
Bad  Rx ,  NAK  sent 
Good  Rx ,  CAN  char 
Keypressed  detected 
Waiting  for  sync 
completed 

Good  Tx,  within  retrymax 
Good  Tx,  CRC  sync  rxd 
Good  Rx ,  EOT  char 
nothing  heard 
Bad  Tx,  retrymax  exceeded 
Good  Tx,  cksum  sync  rxd 
Bad  Tx,  NAK  received 
Bad  Rx ,  CAN  char  received 
Trash  on  the  receive  line 
Keypressed  detected 


VAR  Suppress.ECT, 

Suppress.CAN , 

Moni  tof'.Transf  ers  \  boolean; 


PUNCTION  Sync.Receive  <  seconds  ;  integer; 

sync.character  :  char  ) 


result; 
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FUNCTION  Recei ve_Record  (  VAR  Bu-f  ;  Butter;  blocksize  ;  word; 

seconds  ;  word;  expected_block  :  word; 
VAR  errors  :  byte  )  ;  result; 

FUNCTION  Sync_Send  (  seconds  :  word  )  :  result; 

FUNCTION  Send_Record  (  VAR  But  :  Butter;  blocksize  :  word; 

seconds  :  word;  block  :  byte; 

VAR  errors  :  byte  )  :  result; 

PROCEDURE  Send_E0T  (  VAR  status  :  result  ); 

PROCEDURE  Send_CAN; 

PROCEDURE  Transter_Fi le  (  Send  ;  Boolean  ); 

Function  Comfnand_Xter  (Send: Boolean;  VAR  but  ;  butter; 

BlockSize: Integer )  ;  result; 

FUNCTION  Respond_by_ti le  (  Response  :  pathstring  )  :  result; 
Procedure  Send_String  (  S  :  String  ); 

Function  Get_respon5e  (  BlockSize: Integer  )  ;  result; 

Procedure  str i ng_to_but  (  s  ;  string;  VAR  but  :  butter  ); 

C  Converts  a  string  into  an  Xmodefn  butter  > 

Function  but_to_string  (  VAR  but  :  butter  )  ;  stringl28; 

'  Converts  an  Xmodem  butter  into  a  string  > 

IMPLEMENTATION 

CONST  timeout  =  256: 

Retryma:-;  =  10; 


TYPE 

Xmodem_Frame  =  ARRAY  Cl.. 4 3  ot  Char; 
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Const  Xmodem_Status:  Array  CR>!_sync.  .Tx_keypressed]  o-f  StringC17]  =  ( 


'Rx_sync 

'Rx_done 

'Rx^ACK 

'Rx_old_ACK 

'Rx_E0T 

'Rx_junk 

' Rx  _t i meout 

'R;!_errors 

'Rx~lost_block 

'Rx~NAK  ” 

'Rx_CAN 

'Rx_keypressed 

'T;:_5ync 

'Tx  done 


{  Waiting  -for  sync 
{  completed 

{  Good  Rx,  within  retrymax 
{  Good  Rx ,  old  block 
<  Good  Rx ,  EOT  char 
C  Garbage  on  the  line 
{  nothing  heard 
{  Bad  Rx,  retrymax  exceeded 
{  Bad  Rx ,  out  o-f  sync 
^  Bad  Rx,  NAK  sent 
{  Good  Rx ,  CAN  char 
{  Keypressed  detected 
{  Waiting  -for  sync 
{  completed 


Tx_ACK 

*  f 

t. 

Good  Tx,  within  retrymax 

j 

Tx_CEE_sync 

'  { 

Good  Tx,  CRC  sync  rxd 

•i 

S 

Tx_EOT~ 

Good  Rx ,  EOT  char 

j' 

Tx_ti meout 

»  r 

f  ^ 

nothing  heard 

J 

Tx_errDrs 

)  { 

Bad  Tx,  retrymax  exceeded 

J 

Tx_NAK_5ync 

Good  Tx ,  cksum  sync  rxd 

J 

Tx"nAK~ 

'  9  { 

Bad  Tx,  NAK  received 

} 

TifcAN 

'  r 

*  V 

Bad  Rx ,  CAN  char  received 

h 

J 

Tx_Junk , 

'  r 

V 

Trash  on  the  receive  line 

J 

Tx>_keypressed 

Keypressed  detected 

\ 

J 

VAF: 

CRC  :  EocTean; 

X-fer_File  :  File; 

Statu5_ID ,  Moni tor_ID: Byte; 

Moni tor_Fi  1  e: Fi  1  e  o-f  Char; 

buf-fr  :  bu-f-fer; 

moni to!"_gate  ;  boolean; 

F'RCCED'JF’E  5tring_to_buf  (  s  ;  string;  VAR  bu-f  :  buf-fer  ); 
C  Converts  a  string  into  an  Xmodem  bu-ffer  > 

VAR  index  :  byte; 


BEGIN 

"OR  1 ndex  : =  1  TO  Length  (  s  )  DO 
but  C  index  ]  ;=  s  C  index  ]; 
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FOR  index  ;=  Length  (  s  )  +  1  TO  128  DO 
bu-f  C  index  ]  ;=  Char  (  NUL  ); 

END; 


FUNCTION  bLiF_to_string  (  VAR  buF  :  buFFer  )  :  stringl28; 

{  Converts  an  Xmodem  buFFer  into  a  string  > 

CONST  SPACE  =  ' 

TILDE  = 

VAR  s  ;  stringl28; 
index  ;  byte; 

BEGIN 

FOR  index  ;=  1  TO  128  DO 

IF  buF  [  index  ]  IN  C  SPACE  ..  TILDE  ]  THEN 
s  :=  s  +  buF  C index  I 
ELSE  s  s  +  SPACE; 
buF_tQ_5t'"ing  :=  s; 

END; 

PUNCTION  ReadAux  (  seconds  :  word  )  :  word; 

VAR  1  :  word; 

Ch  :  char; 

BEGIN 

I;=3econds  1000; 

While  ((not  RS232_Avai 1 )  and  (I  >  0)  AND  (NOT  Keypressed))  do  BEGIN 
Del  ay ( 1 ) ; 

DEC(I)  ; 

End; 

IF  RS232_Avail  then  BEGIN 
Ch  :=  R3232_In; 

IF  (  Mor!itor_ID  >  0  )  AND  (  monitor_gate  )  then  Begin 
TextColor (Foreground) ; 

■^ext  Bach  ground  (Background) ; 

Case  Byte(Ch)  oF 

NLIL,BEL,BS,LF  ;  -C  suppress  J; 

*20  ..  JFF  ;  Write  (  Ch  ); 

CR  ;  Writeln; 
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End;  {o-f  Case} 

Write(MonitDr_Fi le,Ch) ; 

End; 

ReadAux  ;=  ORD(Ch); 

End 

else 

ReadAux  :=  Timeout; 

End;  (o-f  ReadAux! 

Procedure  WriteAux (Ch:Char) ; 

Begin 

RS232_Dut(Ch) ; 

H  (  Monitor_ID  >  0  )  AND  (  monitor_gate  )  then 
Begin 

TextColor (Background) ; 

TextBackground (Foreground) ; 

Case  Byte(Ch)  o-f 

NUL,BEL,BS,LF  :  C  suppress  !; 
t20  .  .  *FF  ;  Write  (  Ch  ); 

CP  :  Writeln; 

End;  'Co-f  Case! 

Write(t*1onitor_Fale,Ch) ; 

End;  {begin} 

End;  Co-f  WriteAux} 

Procedure  Send_String  (  S  :  String  ); 

VAR  index  :  word; 

BESIN 

IF  Length  (  S  )  ;  0  THEN  BEGIN 

FDR  index  :=  1  TO  Length  (  S  )  DD 
RS232_0ut(  S  I  index  }  ); 

RS232_0ut  (  Char  (CR)  ); 

END; 

END; 

FUNCTION  Recei ve_Record  (  VAR  Bu-f  :  Buffer;  tlocksize  :  word; 

seconds  :  word;  expected_bl ock  :  word; 
VAR  errors  ;  byte  )  :  result; 
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VAR 

temp  ;  word; 

I  :  word; 
checksum  ;  byte; 

Frame  ;  Xmodem_-f rame; 

Ch  :  Char; 

BEGIN 

Ch;=Char (NUL) ; 
errors  :=  0; 

CASE  ReadAu;;  (  seconds  )  OF 
SOH  :  BEGIN 

monitor_gate  :=  -false;  {  turn  o-f-f  monitor  display  1 
For  I: =2  to  3  do 

Frame  CI3  :=  Char  (Lo(  ReadAu::  (  seconds  ))); 

Checksum; =0; 

monitor_gate  :=  true;  -C  turn  on  monitor  display  } 

For  I;=l  to  BlockSise  do 
Begin 

Bu-f  CI3  :=  Char(Lo  (  ReadAu:-:  (1))); 

Checksum: =  (Byte (Checksum) +Byte (Buf C 1 1 ) )  MOD  256; 

End; 

monitor_gate  ;=  false:  '  turn  off  monitor  display  1 
Frame  C43  ;=  Char  (Lo  ^ReadAu:-:  (  1  ))); 

If  (Bvte(Frame[21?  •::>  (255-Byte (FrameCO] )) )  or 
(Char  (Checksum)  ■<>  FrameC4j)  then 
Begin  CErro'-  on  datacomm  line! 

INC (Errors) ; 

Wri  teAu:-:  (Char  (NAk  )  )  ; 

Recei  ve_Record  :=  R::_NAK; 

End 

else  if  Byte  (FrameC23 )  =  e>:pected_blcck  then 
Begin  {Block  numbers  match:. 

Erroi^s:  =0; 

Recei  ve_Reccrd  :=  R;:_ACK: 

Wr  i  teAu;;  (Char  (ACK)  ) ; 

End 

else  if  Byte(Frame[23)  =  (e;;pected_bl ock-l)  then  begin 
Recei ve_Record  ;=  R;;_o1g_ACK; 

INC  (  Errors  ) ; 

Wri  teAu:-:  (Char  (ACK) )  CDld  block  resent...  ACK  it! 

END 

(♦  Reprinted  with  e;:tensive  modifications  from  Advanced  Techniques  in 
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el  se 

Begin  IWe  lost  a  blockl 

Recei ve_Record  :=  Rx_lost_block; 

End; 

End;  {SOH} 

CAN  :  Recei ve_record  :=  Rx_CAN; 

Timeout  :  Recei ve_record  :=  Rx_timeout; 

EOT  ;  Recei ve_record  ;=  R>;_EOT; 

else  Recei ve_record  ;=  Rx_junk; 

END;  C  OF  CASE  } 

END;  {Recei ve_RecDrdl 

PROCEDURE  Get_Bu-f-fer  (  VAR  bu-f  :  bu-f-fer;  blocksize  :  word  ); 
VAR 

Numread  ;  word; 
index  :  word; 

BEGIN 

BlockRead  (X'fer_Fi  le,  bu-f,  blocksize,  Numread); 

IF  Numread  ■<  blocksize  THEN 
For  index  ;=  Num-'ead  +  1  to  blocksize  DO 
Buf [index]  :=  CHAR (ORD (0) ) ; 

END; 

FUNCTION  Send_Record  ■:  VAR  Buf  ;  Buffer;  blocksize  :  word; 

seconds  :  word;  block  ;  byte; 
VAR  errors  ;  byte  )  :  result; 


VAR 

Numread , 

Numwritten  :  word: 
ind6>'  :  word; 
checksum  ;  byte; 

Ch  :  CHAR; 
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ending_char  :  char; 
quit  :  boolean; 

BEGIN 

monitor_gate  :=  -false;  {  turn  o-f-f  monitor  display  } 

Errors  :=  0; 
checksum  :=  0; 

FDR  index  : =  1  to  blocksize  DO 

checksum  ;=  (checksum  +  ORD  (  Bu-f  [index]  ))  MOD  256; 
Begin 

IF  blocksize  =  12B  THEN  WriteAux  (  Char  (  SDH  )  ) 
ELSE  WriteAux  (  Char  (  SDH  ));; 

WriteAux  (  Char  (  Block  )  ); 

WriteAux  (  Char  (  255-Block  )  ); 

mDnitor_gate  :=  true;  -C  turn  on  monitor  display  3- 
For  index  ;=1  to  blocksize  DO 
Wr  i  teAux  ( Bu-f  l  i  ndex  D ) ; 

monitor_gate  :=  -false;  {  turn  off  monitor  display  1 
Wri teAux  (  Char  (  checksum  )); 

F'urgeLi  ne; 

CASE  ReadAux  <  seconds  )  OF 

ACK  :  Send_Record  ;=  Tx_ACK; 

NAK  :  Send_Record  :=  Tx_NAK; 

CAN  ;  Send_F;ecord  :=  Tx_CAN; 

Timeout  :  Send_RecDrd  :=  Tx_timeDutj 

ELSE  Send_RecDrd  :=  Tx_Junk; 

End;  -Cease; 

IF  k'eypressed  THEN  Send_Record  :=  Tx_keypre5sed; 
END;  (repeat; 


End: 

PUNCi'ION  Sync_Receive  (  seconds  ;  integer; 

sync_character  :  char  )  :  result; 
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VAR 

I, 

tries  :  integer; 


BEGIN 

PurgeLine; 

WriteAux  (sync_character ) ;  •[  try  immediately  > 

tries  :=  TRUNC  (  seconds  /5  +  0-6  );  {convert  seconds  to  cycles  1 
WHILE  ((not  RS232_Avail)  and  (  tries  >  0  ) 
and  (  NOT  keypressed  ) )  do  BEGIN 
Wri  teAux (sync_character ) ; 

I  :=  1000; 

While  ((not  RS232_Avail)  and  (I  >  0  )  and  (  NOT  keypressed  ))  do 
Begin; 

Del  ay (  5  );  {  10  ms  *  1000  cycles  =  10  seconds  1 
DEC  (  I  ); 

End; 

DEC  (  tries  ); 

END; 

IF  Keypressed  THEN 
Sync_Receive  :=  Rx_keypressed 
ELSE  IF  RS232_Avail  THEN  BEGIN 

IF  RS232_peek  <>  Char  (  CAN  )  THEN  Sync_Receive  :*  Rx_sync 
ELSE  Sync_Receive  ;=  Rx_CAN; 

END 

ELSE  Sync_Receive  :=  Rx_timeout; 

END; 

FUNCTION  Sync_5end  (  seconds  ;  word  )  :  result; 

VAR 

quit  ;  boolean; 

Beg  i  r 

quit  :=  FALSE; 

Repeat 

PurgeLi ne; 
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CASE  ReadAux  (  seconds  )  OF 

CEE  :  BEGIN  ^  checksum  handshake  > 

CRC  :=  TRUE; 

Sync_Send  :=  Tx_CEE_sync; 
quit  ;=  TRUE; 

END; 

NAK  :  BEGIN  {  checksum  handshake  } 

CRC  :=  FALSE; 

Sync_Send  :=  Tx_NAK_sync; 
quit  :=  TRUE; 

END; 

Timeout  :  BEGIN 

Sync_Send  :=  Tx_timeout; 
quit  :=  TRUE; 

END; 

CAN  :  BEGIN 

Sync_send  ;=  Tx_CAN; 
quit  ;=  true; 

END; 

ELSE  BEGIN 

Sync_send  ;=  TK_junk;  {Garbage  o-'  the  line! 
END; 

End;  {CASE  > 

UNTIL  (  quit  )  OR  Keypressed; 

IF  Keypressed  THEN  Sync_Send  ;=  Tx_Keypressed; 

END; 

PROCEDURE  Send_E0T  (  VAR  status  :  result  ); 

VAR  e-'rors  :  byte; 

BEGIN 

IF  (  Suppre5s_EGT  )  THEN 
status  ;=  T'<_done 
ELSE  BEGIN 
Errors  ;=  0; 

REPEAT 

WriteAu;-;  (  Char  (  EOT  )); 

INC  (Er rors) ; 

UNTIL  (ReadAux  (  10  )  =  ORD  (  ACK  ) )  OR  (  Errors  =  Retrymax  ); 
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IF  Errors  =  Retrymax  THEN 
Status  ;=  Tx_timeout  -C  timeout  on  EOT  } 

ELSE  status  :=  Tx_done; 

END 

END; 

PROCEDURE  Send_CAN; 

BEGIN 

IF  NOT  Suppress.CAN  THEN  BEGIN 
WriteAux  (  char  (CAN)); 

WriteAux  (  char  (CAN)); 

END; 

END; 

Function  XmQdem_Xfer (Send: Boolean;  BlockSise: Integer)  :  result; 
(This  procedure  performs  an  Xmodem  file  transfer 

Input:  Send  -  True  to  send  a  file 

False  to  receive  a  file 

BlociSize  -  The  block  size  to  use  for  the  file  transfer  } 
VAR  ending_char  :  char; 

Xfer_Type;3tringC6]; 

done, 

Abort  .‘Boolean; 

Status  ;  result; 

Ch  ;  Char; 

Erro'-£ , 

Settings , 

Block  Count  :  byte; 

I, 

block. , 
i ndex , 

Blocks, 

Numread , 

Error_Count  :  word; 

Byte_Count:  Longint; 
buf  :  buffer; 

Procedure  Upda.te_StatuE; 

Var  1 ; Integer; 
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Begin 

1-f  Monitor_ID  >  0  then  begin 
H  Get_Window (Status_ID)  then; 

For  I; =2  to  5  do  Begin 
GotoXYdl,!); 

ClrEol; 

Case  I  o-f 

2:  Write (Xmodem_Status£Status]) ; 
3:  Write (Blocks) ; 

4;  Write(Byte_Count) ; 

5:  Write(Error_Count) ; 

End;  [o-f  Case} 

End; 

If  Get_WindDw(Monitor_ID)  then; 

END; 

End;  -Cof  Update_Status3' 


Begin 

If  Moni tDr_Transf ers  THEN 
Begin 

If  Open_Window (1 ,8,80,24 ,Flag_Border5, 'Monitor  Window')  =  0  then 
ClrScr; 

Writeln ( 'Opening  monitor  file); 

Mon i  tor _ I D :  =Ac 1 1  ve_Wi ndow'- .  ID ; 

Assign (Monitor_File, 'M0NIT0R.DAT' ) ; 

Rewr ite(Monitor_File) ; 

End 
ei  se 
Begin 

Mom  ton_ID:  =0; 

End; 

Xf er_Type:  =  ' Xmodem  ' ; 

■'  Open  the  Status  Window  ?• 

If  □pen_Window<40, 1 ,80,~,Flag_Borders,Xfer_Type)  =  0  then; 
Status_ID: =Acti ve_Wi ndow  ' . ID; 

ClrScr; 

For  I;=l  to  5  do 
Beg  1  n 

GotoXY  (1,1); 
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Case  I 

of 

1: 

Wri te ( ’Name 

!  ■); 

D  ■ 

Write ( 'Status 

:  ■); 

• 

WriteC 'Blocks 

:  '); 

4; 

Write ( 'Bytes 

: 

5: 

Write ( 'Errors 

End 

;  {of  Case) 

End; 

RS_Eight_Bit5;  {  make  sure  we  can  pass  eight  data  bits  } 
BlDcks;=0; 

Byte_Count;=0; 

Errors: =0; 

Error_Count: =0; 

Eilock_Count:=l; 

Abort : =Fal se; 

H  Send  then 

Begin  {Send  the  -file} 

Status  :=  T;;_sync;  {  Holding  for  start  1 
Update_ststus; 

Status  :=  Sync_Send  (  10  ); 

If  Status  =  T::_Keypre5sed  then  Ch  ;=  ReadKey; 

Update_statu5; 

IF  Status  =  T!:_Keypressed  THEN 
C  keep  status  same  > 

ELSE  IF  NOT  (Status  IN  [T;;_CEE_sync ,  Tx_NAK_sync3 >  THEN  BEGIN 
Writeln  ('No  acknowledgement  from  other  side’); 

{Status  :=  ■’'::_timeout;  1 
Update_Statu£; 

END 

ELSE 

BE3IN 

done  :=  false; 

While  rot  'Eof (Xfer_File) )  AND  NOT  (done)  do 
Beg  1  r. 

Update_Btatu5; 

Get_Buffer  (  buf ,  blocksize  ); 

status  :=  Send_Record  (  Buf,  Blocksize,  10,  block_count, 

errors  ) ; 
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CASE  Status  OF 
Tx_ACK  ;  BEGIN 

Error_Count  ;=  Error_Count  +  Errors; 
INC(Blocks); 

Byte_Count:=Byte_Count+BlockSize; 
INC(Block_Count) ; 

END; 

Tx_NAK  :  BEGIN 

INC(Error_count) ; 

I-f  Error_count  >=  retrymax  then  done  :=  true; 
END; 

TX_timeou.t  :  BEGIN 

INC (Error_count ) ; 

I-f  Errar_count  >=  retrymax  then 
done  ;=  true; 

End; 

T;;_CAN, 

Tx_keyprBssed  ;  BEGIN 

done  :=  TRUE; 

END; 

ELSE  BEGIN 

INC (Error_count) ; 

I-f  Error_count  >=  retrymax  then 
Begin 

done  ;=  true; 

Status  ;=  Tx_error5; 

End; 

END; 

END; 

Update_Statu.s; 

End;  tWHILE} 

While  KeyPressed  do 
Begin 

Ch  :=  ReadKey; 

End; 

END; 

I-f  Status  =  TX_ACK  then  Send_EOT  (  status  ) 

ELSE  Send_CAN; 

END 


(*  Reprinted  with  extensive  modi-f ications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  o-f  Sybex ,  Inc. 
Copyright  1987  Sybex,  Inc.  All  rights  reserved. 
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else 

Begin  {Receive  file} 

Status :  =R::  _5ync ; 

Update_status; 

Status  :=  Sync_Receive  (  60,  Char(NAK)  ); 
CASE  Status  OF" 

Rx_Key Pressed  :  Begin 

Abort  :=  TRUE; 
Update_5tatus; 

Ch  ;=  ReadKey; 

End; 


!  BEGIN 

Abort  :=  TRUE; 

Update_Status; 

END; 

ELSE  Repeat 

Status  ;=  Recei ve_Record  (  Buf ,  blocks! se,  1, 

Block_count,  errors  ); 

CASE  Status  OF 
R>:_ACK  :  BEGIN 

INC<Blocks); 

Byte_Count : =Byte_Count+Bl ockSi z e ; 

INC  (  Block_Count  ); 

BlockWrite(Xf er_Fi le,Buf ,  blocksize  ); 

END; 

Rx_jur,k, 

R;’_timeout , 

F;<_01d_ACK  !  BEGIN 

INC  (  Error^Count  ); 

IF  Error_Count  >  retryma::  THEN 
abort  ;=  TRUE; 

END; 

R;;_EQT  ;  BEGIN 

Status  :=  R>:_E0T; 

END; 

ELSE  BEGIN 

Error_Count  :=  Error_Count  +  Errors; 

IF  Error _Count  >  retrymax  THEN  abort  :=  TRUE; 

END; 

END;  {CASE} 

(*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
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Update_Statu5; 

I-f  not  Abort  then 
While  KeyPressed  do 
Begin 

Ch  :=  ReadKey; 

Abort;=True; 

Status;  =R>:_keypressed; 

End; 

Until  (Status  =  R>:_EOT  )  or  Abort; 

END;  {  CASE  1 

I-f  not  Abort  then  Status;=R>;_done; 

Update_Status; 

I-f  Status  <>  R>;_done  then 
Wri teAux (Char (CAN) ) 
else 

Wri  teAux (Char (ACK) ) ; 

End; 

Xmodem_X-fer  :=  status; 

Close  (X-fer_Fi  le)  ; 

It  (not  Send)  and  (Abort)  then 
Erase ( X+er_Fi 1 e) ; 

C  Close  the  Status  window  1 

RS_Re5tore  (  Current_COM  );  C  restore  comport  settings  to  whatever 

was  selected  be-fore  1 

I-f  Ciose_Window  then; 

I-f  Monitcr_ID  0  then 
Begin 

I-f  Close_Window  then;  -C  Close  the  monitor  window  i-f  open  } 
Textoolor (Foreground) ; 

Tertbackground (Background) ; 

Close  (h!oni  tor_Fi  1  e) ; 
ricnitor_ID  :=  0: 

End ; 

End;  -(o-f  X(Tiodem_X-f er } 


Function  Command_X-fer  (Send;Boolean;  VAR  bu-f  :  bu-ffer; 

BlockSize: Integer)  ;  result; 

■(This  procedure  per -forms  an  command/response  exchange 

Input:  Send  -  True  to  send  a  but-fer 

False  to  receive  buf-fer 

(*  Reprinted  with  extensive  modi -fi cations  from  Advanceo  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  o-f  Sybex ,  Inc. 
Copyright  19S7  Sybe:- ,  Inc.  All  rig'^ts  reserved. 
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BlockSire  -  The  block  size  to  use  for  the  transfer 


VAR  ending_char  :  char; 

Xfer_Type; String C 183 ; 
done, 

Abort: Boolean; 

Status  ;  result; 

Ch  ;  Char; 

Errors, 

Settings, 

Block_Count  :  byte; 

I, 

index , 

B1 ocks, 

Numread , 

ErrDr_Count  :  word; 

Byte_Count:  Longint; 

Procedure  Update_Statu5; 

Var  Irlntegai'! 

Beg;  n 

If  T.Dritor_ir’  >  0  then  begin 
If  Get_Window (Status_lD)  then; 

Fc'f  I:  =2  to  5  do  Begin 
GotoXYdl  ,1)  ; 

Cl r Eol ; 

Case  I  of 

2;  Write (Xmodem_Statu5[Status3) ; 
3:  Write (Blocks) ; 

4:  Write (By te_Count) ; 

5:  Wri te (Error_Count) ; 

End;  Cof  Case) 

End : 

If  Get_Window(Monitor_ID)  then; 

END ; 

End;  Cof  Update_Status> 


Begin 

If  Monitor_Transf ers  THEN 
Begin 

If  Dpen_Window(l ,8, 80,24, Flag_Borders, 'Monitor  Window')  =  0  then 

(*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1987  Sybex,  Inc.  All  rights  reserved. 
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ClrScr ; 

Writeln  ( 'Opening  monitor  -file'); 
Monitor_ID:=Active_Window''.  ID; 

Assign (Monitor_File, 'MONITOR.DAT' ) ; 

Rewrite(Monitor_File) ; 

X-fer^Type:  = 'Command  Trans-fer'; 

H  0pen_Window(40, 1 ,80,7,Flag_Borders,X'fer_Type)  =  0  then; 
Status_ID:=Active_Window^. ID; 

ClrScr; 

For  I:=l  to  5  do  Begin 
GotoXY(l,I); 

Case  I  o-f 


1 

Wri 

te  ( 

Wri 

te  ( 

'Status 

:  ') 

Wri 

te  ( 

'Blocks 

;  ■  ) 

4 

Wri 

te( 

'Bytes 

:  ') 

5 

Wri 

te( 

'Errors 

:  • ) 

End 

•Cof 

Case! 

End; 

End 
el  se 

Moni tor_ID; =0; 

RS_Eight_Bits;  C  make  sure  we  can  pass  eight  data  bits  1 
Blocks  :=  0; 

Errors  :=  0; 

Byte_Count: =0; 

Error_Count: =0; 

Block _Count;=l; 

Abort:=False; 

I-f  Send  then 

Begin  CSend  the  command! 

Status  :=  Tx_5ync;  C  Holding  for  start  ! 

Update_statu5; 

Status  ;=  Sync_Send  (  10  ); 

If  Status  =  T;_Keypres5ed  then  Ch  ;=  ReadKey; 

Upda.te_status; 

Status  =  Tx_Keypressed  THEN 
{  keep  status  same  ! 

ELSE  IF  NOT  (Status  IN  CT>;_CEE_sync ,  Tx_NAK_sync ! )  THEN  BEGIN 
Writeln  ('No  acknowledgement  from  other  side'); 

■CStatus  :=  T'(_ti  meout;  !■ 

Update_Statu5; 

END 


(*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybe;.  ,  Inc. 
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ELSE 

BEGIN 

done  :=  false; 

REPEAT 

Update_Status; 

status  :=  Send_RecDrd  (  Buf 

CASE  Status  OF 


Blocksize, 
errors  ) ; 


10,  block_count, 


T,\'_ACK  :  BEGIN 

Error_Count  :=  Error_Count  +  Errors; 
Byte_Count: =Byte_Count+BlockSi2e; 
done  :=  true; 

END; 

T;.:_NAi:  :  BEGIN 

INC (Error_count) ; 

If  Error_count  >=  retrymax  then  done  :=  true; 
END; 

TX_timeaut  :  BEGIN 

INC  (Erro'"_CQunt ) ; 

If  Error_cDunt  >=  retrymax  then 
done  ;=  true; 

End; 

Tx_CAf^ 

Tv eyp-^essed  :  BEGIN 

Wri teln ( 'aborti no  ' ) ; 
done  :=  TRUE; 

END; 


ELSE  BEGIN 

INC (Error_count ) ; 

If  Error_count  >=  retrymax  then 
Begin 

done  ;=  true; 

Status  ;=  Tx_errors; 

End; 

END; 

END;  CCase  ^ 


(*■  Reprinted  t'-xth  extensive  modifications  from  Advanced  Techniques  in 
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UNTIL  done; 

While  KeyPressed  do 
Begi  n 

Ch  :=  ReadKey; 

End; 

END; 

Update_5tatus; 

H  Status  =  TX_ACK  then  BEGIN 
Send_E0T  (  status  ) ; 
status  :=  T:;_done; 

END 

ELSE  Send_CAN; 

END 

else 

Begin  {Receive  -file} 

Status; =Rx_sync; 

Update_status; 

Status  :=  Sync_Receive  (  60,  Char(NAK)  ); 

CASE  Status  OF 

R;- _KeyPres5ed  :  BEGIN 

Abort  ;=  TRUE; 

Update_5tatus; 

Ch  ;=  ReadKey; 

End ; 

R:.:_tim60  J.t , 

R;  _CA'J  ;  BEGIN 

Abort  :=  TRUE; 

Update_Status; 

END; 

ELSE  Repeat 

Status  :=  Recei  v'e_Record  (  Bu-f ,  blocksize,  10, 

Blocl_count,  errors  ); 

CASE  Status  QF 

R.’_AC>  :  BEGIN 

Byte_Count ; =Byte_CDunt+Bl ockSi ze; 
END; 

R;-  _  junk , 

R- _tin60Jt , 

Rv'”uld_C.CK  :  BEGIN 

INC  (  Error  Count  ) ; 


!★  Reprinted  with  extensive  modifications  -from  Advanced  Techniques  in 
Turbo  Faecal  by  Charles  Edwards,  by  permission  of  Sybe; ,  Inc. 

Cop, right  IRS"  Sybe-',  Inc.  All  rights  reserved. 
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IF  Error_Count  >  retrymax  THEN 
abort  ;=  TRUE; 

END; 

Rx_E0T  ;  BEGIN 

Status  :=  Rx_EOT; 

END; 

ELSE  BEGIN 

Error_Count  :=  Error_Count  +  Errors; 

IF  Error_Count  >  retrymax  THEN 
abort  ;=  TRUE; 

END; 

END;  {CASE} 

Updat<?_Status; 
li  not  Abort  then 
While  KeyPressed  do 
Beg  i  n 

Ch  :=  ReadKey; 

Abort : =True; 

Status: =RK_keypressed; 

End; 

Until  (Status  =  Rx_E0T  )  or  Abort; 

END;  C  CASE  }■ 

If  not  Abort  then  Status: =Rx_done; 

Update_Status; 

H  Status  :'>  R;<_done  then 
WriteAux (Char (CAN) ) 
el  se 

WriteAux  fChar (ACK) ) ; 
no;  {  Receive  } 

0(Tima.rd__Xf er  ;=  status; 

C  Close  the  status  window  } 

C  restore  comport  settings  to  whatever  was  selected  before  1 
R:5_Re5tore  (  Current_CON  ): 

If  MoritQr_I{  .  0  then  {  Close  the  monitor  window  } 

Begin 

If  Close_Window  then; 

If  Clo5e_Window  then; 

Te:-tcolor  (Foreground)  ; 

Te :tbaci  ground (Background) ; 

Close (Noni tor_Fi 1 e ) ; 

Monito'_ID  :=  <! ; 

Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
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End; 

End;  {of  Command_Xf er> 


Procedure  Transfer_File(Send;Boolean) ; 

{This  procedure  initiates  a  file  transfer 

Input;  Send  -  True  if  we  want  to  send  a  file 
False  to  receive  a  file 

t 

J 

Var  FileName  :  Long_String; 

I , J: Integer; 

Abort: Boolean; 
status  :  result; 


Beg  1  n 

Abort :=False; 

H  □pen_Window(20, 16,60, 19, Flag_Borders, 'Name ' )  =  0  then; 
Ci rScr; 

Write( 'File  Name:  ' ) ; 

Readln(  P’ileName  ); 

If  CTose_Window  then; 

If^  (  Length  (  FileName  )  =  0  )  or  (FileName  =  ''P)  THEN 
{  do  nothing  } 

ELSE  BEGIN 

For  J;  =  l  to  Length  (  FileName  )  do 

FileName  CJ3  :=  UpCase (  FileName  [J3  ); 

Assign  (  Xfef-_-ile,  FileName  ); 

If  Send  then  Begin 

{•fl-: 

Reset (Xfer_Fi 1 e,  1); 

{^i+: 

H  lOResult  >  0  then  Begin 
NoF 1 1 e (  Fi 1 eName  ) ; 

Abort;  ='^rue; 

End : 

End 
el  se 

Rewri  te (Xfer_Fi le,  1); 

If  not  Abort  then  status  :=  Xmodem_Xfer  (  Send,  128  ); 
END; 

End;  (of  Transfer _Fi 1  el 


(♦  Reprinted  with  evtensive  modifications  from  Advanced  Techniques  in 
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^UNCTION  Re5Dond_by_-f i le  (  Response  :  pathstring  )  ;  result; 
CThis  procedure  provides  the  user  a  response  contained  in  a  file 
Input;  Response  -  the  complete  path  specification  for  the  file 


CONST  Send  ;  boolean  =  TRUE; 

Var 

Abort  ."Boolean; 

Begin 

Abort; =Fal se; 

Assign  (  Xfer_File,  Response  ); 

{■ti-y 

Reset (Xfer_Fi le,  1); 

If  IQResult  >  0  then 
Begin 

NoFi le (Response) ; 

Abort ; =True; 

End; 

If  net  Abort  then  Respond_by_f i le  ;=  Xmodem_Xfer  (  Send,  128  ) 
ELSE  Re5pond_by_f i le  ;=  Tx_CAN; 

End;  C  Re5pond_by_f 1 1 e  } 

Function  Get_response  (  BlockSize; Integer  )  ;  result; 

IThis  procedure  performs  an  Xmodem  file  transfer 

Input:  Send  -  True  to  send  a  response 

False  to  receive  a  series  of  responses 

BlockSize  -  The  block  size  to  use  for  the  file  transfer 

Statu5_ID,  ?1cnitor_ID  must  be  seen  by  WriteAux,  ReadAu;; 


V6R  endir,o_char  ;  char; 

Xf er_Type; Stri ngC6I ; 
done , 

Abo't: Boolean; 

Status  :  result; 

(*■  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
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Ch  :  Char; 

Errors, 

Settings, 

Block_Count  ;  byte; 

I, 

block, 
index , 

Blocks, 

Numread , 

Error_Count  :  word; 

Byte_Count;  Longint; 
buf  ;  bu-f-fer; 

Display_Window_ID  ;  byte; 

Begin 

Monitor_lD  ;=  Acti ve_Window'".  ID; 

Assign  (  Moni tor_Fi le ,  'NUL'  ); 

Rewrite  (  Monitor_File  ); 

•C  Change  to  current  comms  1 

RS_Eight_Bit5;  C  make  sure  we  can  pass  eight  data  bits  > 

B1 ocis: =0; 

Byte_Count;=0; 

Errors; =0; 

Error_Cou.nt:  =0; 

Elock_Count; =1 ; 

Acort:=Fal se; 

Begin  {Receive  tile! 

Status: =Ry_sync ; 

Status  ;=  Sync_Receive  (  60,  Char(NAK)  ); 

CASE  Status  0F~ 

R;:_KeyF'res5e!j  :  Begin 

Abort  :=  TRUE; 

Ch  :=  ReadKey; 

End; 

Rx_timeout , 

R'-_CAN  :  Abort  ;=  TRUE; 

ELSE  Repeat 
Beg  i  n 

Status  :=  Recei  ve_Record  (  Bu-f ,  blocksize,  1, 

Block_count,  errors  ); 


(♦  Reprinted  with  extensive  modi -fi cations  from  Advanced  Techniques  in 
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CASE  Status  OF 
R>,_ACK  ;  BEGIN 

INC(Blocf;5); 

Byte_Count;=Byte_Count+BlockSi2e; 

INC  (  Block_Count  ); 

END; 

R;<_junk , 

Rx_timeout , 

R>;~01d_ACK  :  BEGIN 

INC  (  Error_Count  >; 

IF  Error_Count  >  retrymax  THEN  abort  :=  TRUE; 
END; 

R;;_EDT  :  BEGIN 

Status  :=  Rx_EOT; 

END; 

Rx_CAN  ;  BEGIN 

abort  :=  TRUE; 

END; 

ELSE  BEGIN 

Error_CDunt  :=  Error_CDu.nt  +  Errors; 

IF  Error_Count  >  retrymax  THEN  abort  ;=  TRUE; 

END; 

END;  CCASE> 

If  not  Abort  then 
While  KeyPressed  do 
Begin 

Ch  ?=  ReadKey; 

Abo-"t:  ^'‘-ue; 

Status:  =R:'_keypressed; 

End; 

END  v  Receive  1 

Until  I'Status  =  R;;_EOT  )  or  Abort; 

END;  C  CASE  ? 

If  not  Abort  then  Status: =Rx_done; 

If  Status  <>  R;'_done  then 
WriteA.i;.'  (Char  (CAN) ) 

el  se 

WriteAux (Char (ACK) ) ; 

End; 

Get_Response  :=  status; 

Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  IPS"  Sybe  ; ,  Inc.  All  rights  reserved. 

Continue  Edwards  Excerpt 


26S 


(•»♦■**#♦♦#♦*#*♦♦*#*♦##  Continue  Edwards  Excerpt  «•»**•*♦*♦****♦»**»♦**) 


C  restore  comport  settings  to  whatever  was  selected  be-fore  > 
RS_Restore  (  CLirrent_COM  ) ; 

H  Monitor_ID  >  0  then 
Begin 

Textcolor (Foreground) ; 

Textbackground (Background) ; 

Close(Monitor_Fi le) ; 

Monitor_ID  :=  0; 

End; 

End;  C  (3et_response  > 


BEGIN 

Suppress.EOT  :=  FALSE; 

Suppress_CAN  :=  FALSE; 

Monitor_Tran5'fers  :=  TRUE; 

manitor_gate  :=  -false;  {  don't  display  xmodem  packet  headers  > 
END. 


(if  Reprinted  with  extensive  modi-fications  -from  Advanced  Techniques  in 
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APPENDIX  AA 


SOURCE  LISTING  FOR  PROGRAM  DISTRIB 


(***********♦#*♦»*■»♦♦♦**♦»*♦•*»•***■»•»*■*#♦♦*#*♦•»■*#♦#•*♦«•*♦##♦*■***•»♦**■*♦*) 


(♦**♦  DISTRIB. PAS  ****) 
(****  This  is  the  main  program  for  the  Master/Slave  networked  #***) 
{****  computer  system.  The  same  program  is  used  for  both  the  ****) 
(****  Master  and  Slave,  with  the  function  being  selected  from  ****) 
(♦♦**  the  command  line  as  follows;  ***#) 
(***♦ 

(♦♦*♦  Master;  Distrib  Master  (also  allows  program  config  ***♦) 

****) 

(****  Server:  Distrib  Server  ****) 
(#*♦#  **♦*) 
{****  Reference:  Edwards,  C.  C.  ,  Advanced  Techniques  in  Turbo  «■**♦) 
(**♦*  Pascal,  pp.  220-275,  Sybex ,  Inc.,  1987  ♦***) 
(**♦*  ##»«) 
(**♦*  Heavily  modified  from  the  terminal  emulation  program  ****) 
(****  found  in  the  reference.  Convet-ted  to  a  Turbo  Pascal  4.0  #♦♦*) 
(**■»*  program  by  Nelson  Ard  ****) 
(♦#*«■  «*♦♦) 
(*•##*  Last  Modification:  Sep  89  *♦♦■») 


(*♦♦»♦♦»*♦♦*■#*•»•**♦*♦•*■*♦•»*•«•*#***♦*♦*****♦*♦«•♦**##•**♦***•♦**♦♦###*****«•) 

(*  Modification  history 

12  Sep  89  -  Replaced  local  RS232  write  procedure  with 
DataCom. Send_String 

CfR-l  {Range  checking  on} 

{fB+/  CBoolea-.  complete  evaluation  on} 

'tS+j  {Stack  checking  on} 

{TI+}  CI/Q  checking  on} 

{J:^}-}  {Nc  numeric  coprocessor} 

{■fM  65500,16384,65500}  {Modified  default  stack:  and  heap} 

Program  Distrib; 


Uses 

Datacomi , 
Crt  , 

Dos. 

Wndow , 

X  modm , 

Di  recto’' , 


ErrorCod , 

Support , 

Printer , 

Parser,  Spawn,  miscpack; 

(»****♦************#*  Start  Edwards  Excerpt  *»***«-*#*******'tn«»*-*) 
Procedure  Save_Fi le (D; Boolean) ; 

CThis  procedure  asks  the  user  if  he  wants  to  save  a  changed 
configuration  If  so,  it  writes  the  appropriate  file 

Input  D:  True  if  saving  default  values 
False  if  saving  phone  file 

J 

Var  Configure; Fi le  of  Byte; 

Phone: Phone_Record; 

J : Integer ; 

Beg  i  n 

If  Dpen_Window(50,9,67, 12,Flag_Borders, ' ' )  =  0  then; 

ClrScr; 

If  D  then 

WriteC'Save  defaults?') 
else 

Write  ('Save  this  entry'(’'); 

If  Yes ('Save')  then 
Begin 
CIrScr; 

Write ( ' Savi ng . . . ' ) ; 

If  D  then 
Begin 

Assian (Configure, Defaults. Default  Name) ; 

CSI-l 

Reset (Configure) ; 

{fl+' 

If  lOResult  >  0  then 

NoPi le (Defaults. Default_Name) 
el  se 
Begin 
ClrScr ; 

Writeln('If  you  want  to  use  these  parameters'); 

Write ('You  must  end  and  restart  Distrib'); 

OK  (  "  )  ; 

If  Close_Window  then; 

End ; 

End 

(*  Repi^inted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  IRS?  Sybex,  Inc.  All  rights  reserved. 
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else 

Begin 

Assign (Phone_File, ' DISTRIB. PHN ' ) ; 

Rewrite(PhDne_File) ; 

For  J:=l  to  Phone_Menu^-.  Length  do 
Begin 

Phone .  Name :  =Phone_Menu'^ .  Names  C  J 1 ; 

Phone .  Phone_Data ;  =Phone_St  uf  F C  J 1 ; 

Write(Phone_File, Phone) ; 

End; 

Close(Phone_File) ; 

{tR+} 

End; 

End; 

IF  Clo5e_Window  then; 

End;  CoF  Save_File} 

:tv-: 

Procedure  Wri te_AUX_Stri ng  <  S  :  STRING  >; 

{This  procedure  writes  a  string  out  to  the  currently  selected  COM  port 
VAR  index  ;  byte; 

BEGIN 

FOR  index  : =  1  TO  Length (S)  DO  BEGIN 
RS232_0ut (SC  index  3) ; 

END; 

END; 

Procedure  Di al _Phone (I ; Integer ;  DBmon_Dial ; Boolean) ; 

{This  procedu'"e  dials  a.  phone  entry.  The  demon  dial  Feature  is  the 
only  Feature  oF  Distrib  which  explicitly  assumes  the  presense  o-f 
a  Hayes  or  Hayes  compatible  modem. 

Input:  I  -  The  index  into  the  phone  array  that  we  are  to  dial 

Detnon_Dial  -  true  it  we  are  to  repetitively  dial  until  an 
answer  is  obtained 


Var  Court : Integer ; 

S: LDng_String; 

Ct : Char ; 

{Connected; Boolean; 3 
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J: Integer; 

Time; Integer; 
quit  :  boolean; 


Procedure  Flu5h_Bu-f ter ; 

Var  ChiChar; 

Begin 

Repeat  Begin 

Ch  ;=  RS232_In; 

It  not  RS232_Avail  then  Delay (200); 
End 

Until  not  RS232_Avail; 

End;  tot  FI ush_Butter > 


Beg  1  n 

RS_C1 eanup ; 

CfR-} 

With  Phone_Stutt'"  C I  ]  do 
Begin 

RS_Ini t i al i ze (Det aul ts. Detaul t_Modem,Phone_Baud , Phone_Par i ty , 
Phone_Stop ,Fhone_Length) ; 

Echo:  =PhQrie_Echo; 

End: 

i  -  -i-  r.  . 

1  I  I 

Demon_Diai  then 
Beg  1  n 

2r.t  a'om.  5end_Str i ng  '  '  ATZ  '+Char  (CR) ) ; 

FI ush_But ter; 

DelaydOOO';  CQive  modem  time  to  reset) 

DataCom. Send_Str i ng ( ' ATV1Q0E1S7= '+Char (Di al _Delay) +Char (CR) ) ; 

It  Qpen_Windcw ( 15,09,65, 17, Fiag_&Q^ders, ' Di al ' )  =  0  tnen; 

Cl  "5.;-:" 

Wr;  tein  (  'f'lame  :  '  ,Phone_Menu'"'. Names!  13); 

W-^i  tel  n  (' Attempt  :')? 

W""  1 1  e  1  n  ''Status  :  ' ) ; 

W-'i  tel n  Started  :  '  ,Set_Time) ; 

Wr) teln f 'Dialed  at  :'); 

Wri tel n ( 'El apsed 

Wr i te ( ' Cpti ons  ;ESC  to  abort... any  other  key  to  cycle'); 
Flush_Butter; 

Count: =0; 
quit  :=  -a.lse; 

(♦  Reprinted  with  extensive  moditications  trom  Advanced  Techniques  in 
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Repeat  Begin 

Count :=Count+l; 

Time: =0 ; 

GotoXY(12,2); 

Write (Count) ; 

GotoXY(12,3) ; 

ClrEol; 

Wr i te ( 'Di al ing  ■ ) ; 

6otQXY(12,5) ; 

Wri te (Get_Time) ; 

DataCom. Ser!d_Str ing  (Phone_Pre-f  ix+Phone_Stu'f -f ‘"  C I  ] .  PhDne_Number 

+Char(CR)); 

Flush_Bu-f-fer; 

J :  =0; 

Delay (2000);  (Give  time  to  dial  the  phone} 

While  not  (KeyPressed  or  RS232_Avail)  do 
Begin 

Delay  (10);  CThis  delay  is  correct  -for  the  PC  or  XT, 
it  may  have  to  be  changed  tor  an  AT  or 
■faster  boxl- 

J :  =  J  1 ; 

H  J  =  100  then 
Begi  n 

T 1  me:  -hime-^1 ; 

GctoX  Y  ('12,6*  ; 

Cl -Eel; 

Write (Time, ‘  Seconds'); 

J:  =0; 

End ; 

E"d  r 

I-'  )■  ey!^f eased  then 
Beci  r 

Ch  :=  ReadKey; 

If  f .ev-'r-essed  then 
Ch  ;=  ReadKey; 

If  Ch  =  Char (ESC)  then 
Beg  i  n 

S: = 'Aborted ' ; 
quit  :=  True; 

End 
e)  se 

5:  =  'Cycl ing  ' ; 

(*  Reprinted  with  extensive  modi-f ications  from  Advanced  Techniques  in 
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DataCom.Send_String (Char (Ch) ) ; 

Del  ay (2000) ; 

1+  RS232_Avail  then  Flush_Bu'f -fer ; 

End 
else 
Begin 
S:  =  "; 

Repeat  Ch  :=  RS232_ln  until  Ch  =  Char(LF); 

Repeat  Begin 

Ch  :=  RS232_ln; 

I-f  Ch  >  Char  (US)  then 
Si=S+Ch; 

End 

until  Ch  =  Char(LF); 

End; 

GGtoXV(i2,3) ; 

ClrEcl ; 
tVr  1  te  (S ) ; 

I-f  not  Connected  then  Delay(5000); 

End 

Until  Connected  OR  quit; 

For  Count: =1  to  10  do  Beep (500); 

If  Close_WiridDw  then; 

End 
e  1  se 

Data  Con .  Serid_Stri  ng  (Fhone_Frefi  K+Phone_Stuff  ■■'■'[  I  ] .  Phone_N'umberi- 
Char (CR) ) ; 

■CJP+1- 

End:  -(of  Di  al  _f^'hcnel 

Procedure  Dial ing_ri rectorv: 

•'This  procedure  allows  the  user  to  dial  or  modify  any  of  the  entries  i 
the  phone  array! 

Var  I, J: Integer: 

Function  Get_Di6l : Integer ; 

Beg  1  n 

If  0pen_Window(24,5,56,riin  (6+Phone_Menu''. Length ,  17)  ,Fiag_BDrders 
'Phone  List')  =0  then; 

Get_Di  al :  =Proce5s_Window_rienu  (Phone_nenu.'" ) ; 

I-f  Cl Dse_Wi ndovv  then; 

End;  -Ic-f  Get_Dial! 


•:*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
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Begin 

If  Open_Window (36,5,44, 1 1 ,Flag_Border5, 'Choice ' )  =  0  then; 

I : =PrQcess_Window_Menu (Dial_Menu) ; 

I-f  Close_Window  then; 

Case  I  o-f 

0:  ;  CESC...NO  Choice} 

l,2;Begin  {Dial  or  Demon  Dial) 

J: =6et_Di al ; 

I-f  J  >0  then 

Diel_Phone(J,I=2); 

End; 

3:  Begin  {Hodi-fy} 

I ; =Get_Di al ; 

If  I  >0  then 

Modi  -f  y_Entry  ( I ) ; 

End ; 

4:  Begin  {Delete/ 

I-f  Phone_MenLi  ■■.Length  =  1  then 
Begin 

If  0pen_Window(45,9,67, 12,Flag_BDrders, '  ' )  =  0  then; 
ClrScr ; 

Write ( 'Cannot  delete  last  entry); 

OK  (  "  ) ; 

I-f  Clo5e_Window  then; 

End 
el  =  e 

Beg  1  n 

I : =Bet_Dial ; 

I-f  I  >  0  then 
Begin 

01 d_Phone_Menu: =Phone_Menu; 

01  d_Phone_Stu-f  -f :  =Fhone_Stu-f  f ; 

J :  =Phorie_Menu.'.  Length; 

GetMem  (Phone_Stu-f -f ,  ( J-1 )  «-Si  zeo-f  (Phone_Params^  )  ; 

GetMem  (Phone_Menu ,  ( J-1 )  *Si  zeo-f  (PbDne_Name) -^2) ; 

Move  (01  d_Phone_Menu'''  ,Phone_Menu"' ,  ( I-l )  * 

Sizeo-f  (Phone_Name) -*-2) ; 

Move  (01  d_Phone_Stu-f -f  ■  ,  PhDne_Stuf -f  ■ ,  ( I-l)  * 

Si  zec-f  (Phone_Params)  ) ; 

I-f  I  ■(  J  then 
Begi  ' 

Move  (01  d_P‘hone_MenLr  ■.  Names!  I-t-1  ] , 

Phone_Meni.t  -.  Names!  I  ] , 

( J-I )  *Si  zeo-^  (Phone_Name)  ) ; 

(->-  Reprinted  with  ex  tensive  modi -f i cati ons  -from  Advanced  Techniques  in 
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Move  (01d_PhQne_Stuf  f '‘■CI  +  l :  ,Phone_Stu^  f  ■'C I  ] , 

( J-I ) ♦Sizeot (Phone_Param5) ) ; 

End; 

Phone_Menu'’.  Length ;  =J-1 ; 

FreeMem(aid_Phone_Menu,  J*Sizeo'f  (Phone_Nanie) +2) ; 
FreeMem(01d_Phone_Stu-ff  ,  J*Sizeo-f  (Phone_Params) ) ; 
Save_Fi le (False) ; 

End ; 

End; 

End; 

5:  Begin  {Add} 

{JR-} 

01 d_Phone_Menu: =Phone_Menu; 

01d_Phone_Stu-f -f :  =Phone_Stutt; 

GetMem  (Phone_StU'f -f ,  (Phone_Menu''".  Length+1 )  * 

Sizeo-f  (Phone_Param5) ) ; 

GetMem  (Phone_Menu,  (Phone_Menu''.  Length+1 )  * 

Sizeo-f  (Phone_Name)  +2) ; 

I !  =01  d_F'hone_Menu'".  Length; 

Move  (01  d_Phone_Menu.-''  ,Phone_Menu''' ,  I*Si  zeof  (Phone_Name)  +2) ; 
Move(Qld_Phone_Stuff  "',Phone_Stuff  •  I-*Sizeof  (Phone_Pe.rams)  )  ; 
I:=I+1; 

Phone_Menu'"'.  Length:  =I ; 

Phone_Menu''-.  NamesC  I  3:  =  ' . . .  To  be  provided... 

Move  (Defaults.  Def  aul  t_Phone,Phone_Stuf  f  "'C 1 1 , 

Sizeof (Phone_Params) ) ; 

Modi  f  y_Entry  I )  ; 

^reeMem  (01d_Phone_MenLi,  (I-l)#Sizeof  (Phone_Name) +2) ; 

FreeMem (01d_Phone  Stuff , ( I-l ) *Sizeof (Phone_Params) ) ; 

{fp+} 

End : 

End;  -Cof  Case) 

End^  {o-f  Dial  ing_Di rectory} 

Procedure  Dirs; 

{  Replacement  directory  } 

CONST 

Start  :  integer  =  5; 

Finish  :  integer  =  20; 


(*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
Copyright  1987  Sybex ,  Inc.  All  rights  reserved. 
**##**#-»n(-*i(-*-»-*****»»»  Continue  Edwai^ds  Excerpt 


277 


(##*■***#**##■»*#•**■»•»##  Continue  Edwards  Excerpt  ####*»**#♦*«•»»«■**«•»#) 


VAR 

error  ;  integer; 

Dirin-fo  :  Dos. SearchRec; 

S, 

Mask , 

Option  :  string; 

Directory_-found  ;  Boolean; 

FromLine  ;  integer; 

Ch  :  Char; 

Begin 

GetDir (0,S); 

H  Open_Window(l , Start, 80, Finish, Flag_Borders,S)  =  0  then; 

ClrScr ; 

IF  □pen_Window  (  5,  Start  +  5,  70,  Start  +  7,  FI ag_Borders , 

'Mask?  *.#  is  default'  )  =  0  THEN; 

GotoXY  (  1,1  ); 

Read In  (  Mask  ); 

IF  Length  (Mask  )  =  0  THEN  Mask  := 

If  ClQ5e_Window  then; 

CirScr; 

IF  Open_Window  (  5,  Start  +  5,  70,  Start  +  7,  FI ag_Borders , 
'Options?'  )  =  0  THEN; 

GctoXY  (  1,1  ); 

Write  ('C  none  =  dir  (Mask),  ''w''  =  dir  (Mask)  /w  ]  '); 

Readln  (  Option  ); 

If  Clo5e_Windcw  then; 

ClrScr; 

IF  Length  (  Option  )  =  0  THEN  BEGIN 
GotoXY  (  1,1  ); 

ShowDir  (  Mask,  1,  13,  error  ); 

END 

ELSE  CASE  Option! 1]  of 
' w ' ,  ' W '  ;  BEG I N 

GotoXY  (  1,1  ); 

ViewDir  (Mask,  1,  13  ); 

END; 

END;  {CASE I 
GotoXY  (  1,  13  ); 

Write( 'Finished. . .Press  any  key'); 

Ch  ;=  ReadKey; 

If  KeyPressed  then  Ch  ;=  ReadKey; 

If  CIo5e_Window  then; 

End;  (of  Dirsl 

(♦  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
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Procedure  Change_DC_Parameter5; 

CThis  procedure  allows  the  user  to  choose  trom  a  list  o-f  speed, 
parity,  word  length,  and  stop  bit  con-f igurationsl 
Var  I: Integer; 

Begin 

H  Open_Window (67, 1 ,79,23,Flag_Borders, 'Baud-P-L-S ' )  =  0  then; 
ClrScr; 

I :  =Proce55_Wi  ndow_Menu  (Co(nmunications_Menu) ; 

H  I  >0  then 
Begin 

RS_Cleanup; 

With  Com(iiunications_Stu-f'f [ I ]  do 
Begin 

RS_Ini ti al ize ( Cur rent_Com, Speed, Parity, Stop , Length) ; 

End; 

End; 

H  Close_Window  then; 

End;  Cot  Change_DC_Parameters> 

Procedure  Hangup; 

•'This  procedure  hangs  up  the  Hayes  compatible  modem! 

Var  Ch.'Cha.’"; 

Beg  i  n 

Repeat  Begin 

While  RS232_Avail  do  Ch  ;=  RS232_In; 

Delay (500) ; 

End 

Until  not  RS232_Avai 1 ; 

DetaCom. 5end_String ( '+++  ' ) ; 

Del  ay (2500) ; 

DataCom. 5end_Stri ng ( ' ATHO '+Char (CR) > : 

Delay (1000) : 

While  RS232_Avai 1  do  Ch  :=  RS232_In: 

End;  -Co-f  Hangup! 

procedure  DDS_Shel 1 ; 

•CThis  procedure  opens  a  window  and  spawns  a  DOS  command  processor} 
Var  Prog, Param, Dir: String; 

I ; Integer ; 


(*  Reprinted  with  extensive  modi-f ications  -from  Advanced  Techniques  in 
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Begin 

Frog; =Find_Envi ronment ( ' COMSFEC ' ) ; 

If  Length (Frog)  <>  0  then  BEGIN 
Faram:=' 

If  Open_Window (40,5,60,8,Flag_Border5, 'DOS ' )  =  0  then; 

ClrScr ; 

Wri tel n ( 'Opening  Dos  Shell'); 

Write ('Use  EXIT  when  done'); 

OK  (  "  ) ; 

If  Close_Window  then; 

If  Open_Window ( 1 , 1 ,80,25,0, '' )  =  0  then; 

ClrScr; 

GetDir (0,Dir ) ; 

Exec  (Prog,  Par am); 

System. ChDir (Dir) ; 
if  doserror  <>  0  THEN  BEGIN 

If  Open_Window (40, 1 ,75,3,Flag_Borders, 'DOS  Error')  =  0  then; 
ClrEol ; 

Writeln  (Error_CodeCDosError3) ; 

Delay  (  2000  ); 

If  Clo5e_WindDW  then; 

END; 

If  C105e_Window  then; 

END 

ELSE  BEGIN 

If  Open_Window (35, 10,75, 13, Flag_Borders, 'Error ' )  =  0  then; 
ClrEol ; 

Writeln  ('  Unable  to  open  C»0S  shell'); 

Wrlt6('  ''CONSPEC''  not  found  in  environment'); 

OK  (  "  )  : 

If  Close_Window  then; 

END; 

End;  Cof  Dos_Sheli:. 


(#  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
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FUNCTION  0perator_i nput  (  Title  :  WindDw_titlB; 

Prompt  :  PathString  )  :  PathString; 


VAP  Response  :  PathString; 

BEGIN 

I!^  0pen_Windc.w  (  5,  10,  75,  13,  Flag_&order  i ,  Title  )  =  0  THEN 
BEGIN 
ClrScr; 


Writeln  (  Prompt  ); 

Readln  (  Response  ); 

Operator_Input  !=  Response; 

IF  Clo5e_Window  THEN; 

ENP 

ELSE  Operator_Input  := 

END; 

PROCEDURE  Operator_message  (  Title  ;  Window_title; 

Message  ;  PathString  ); 


BEGIN 

IF  Open_Window  (  40,  10,  80,  13,  Flag_Borders,  Title  )  =  0  THEN  BEGIN 
ClrScr ; 

Writeln  (  Message  ); 

END 

END; 


-UNCTION  Proce55_command  ;  result; 

CONST  Receive  :  boolean  =  FALSE; 
Transmit  ;  boolean  =  TRUE; 


VAR 

inde;.  ;  byte; 

Response  :  Stringl28; 
Restype  ;  Re5ponse_type; 
Erro‘-_msg  :  Stringl28; 
Errtype  ;  Response_tvpe; 
Prompt  ;  Stringl2S: 
bu-f  ;  bu-f-fer; 
send  :  boolean: 

3erver_ID  :  byte; 
status  :  result: 

:  cha-; 

■finished  :  boolean; 
debugging  :  boolean; 


BEGIN 

debugging  :=  FALSE; 

■finished  ;=  FALSE; 

IF  Open_Window  (  1,  1,  80,  7,  Flag_BorderE,  'Remote  Server')  =  0  THEN; 
ClrScr; 

Server_ID  :=  Acti  vB_Wi ndow"'.  ID; 

For  inde::  :=  1  TO  4  do  BEGIN 
GotoXY  (  1,  index  ); 

CASE  index  OF 

1  :  Write  ('Server  Version  1.0'); 

2  ;  W'^ite  ('Function  :  Initializing'); 

3  :  Write  '"'Status  ;  Awaiting  Command'); 
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4  :  Write  (’Command  :  '); 

END;  {  CASE  } 

END; 

Send  :=  FALSE; 

Redirection  ;=  true; 

{Send_string  ('xmodem  st  test.tst');!- 
IF  Get_Window  (  Server_ID  )  THEN; 

BQTOXY~(  12,  2  ); 

Write  ('Getting  Command'); 

REPEAT 

status  ;=  Command_X-fer  (  Receive,  bu-f ,  128  ); 

UNTIL  (  status  =  Rx_done  )  OR  (  status  =  Rx_keypressed  ); 

IF  Get_Window  (  Server_ID  )  THEN; 

Process_command  :=  status; 

IF  (  status  =  Rx_keypressed  )  AND  NOT  (  debugging  )  THEN  BEGIN 
IF  Clo5e_window  THEN; 

WHILE  keypressed  DO 
Ch  :=  readkey; 

EXIT; 

END; 

BDTGXY  (  12,  2  ); 

Write  ('Parsing  Command'); 

GGTOXY  (  12,  3  ); 

Write  ('Executing  Command  '); 

GOTOXY  (  12,  4  >; 

IF  debugging  THEN 

String_to_bu-f  (  Operator_Input  (  'Command',  'server  command?'), 
bu-f  ) ; 

Write  (  bu-f_to_string  (  bu-f  )  ); 

Par5er_main(  bu-f _to_str i ng  (  bu-f).  Response,  Restype, 

Error_msg,  Errtype,  Prompt  ); 

CASE  Errtype  OF 


strng  ;  BEGIN 

IF  Length  (  Error_msg  )  >  0  THEN  BEGIN 
string_to_bu-f  (  Error_msg,  bu-f  ); 

REPEAT 

status  :=  Command_Xfer  (  Transmit,  bu-f,  128  ) 
UNTIL  (  status  =  Tx_dorie  ) 

OR  (  status  =  Tx_keypres5ed  ) 

OR  (  status  =  Tx_CAN  ) ; 

Process_comman(j  ;=  status; 

CASE  status  OF 
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Tx_keypressed  ;  BEGIN 

IF  Close_window  THEN; 
WHILE  keypressed  DC 
Ch  ;=  readkey; 

■finished  :=  TRUE; 

EXIT; 

END; 

Tx_CAN  :  BEGIN 

Finished  ;=  TRUE; 

END; 

END;  CCABE} 

END;  -Cl  FI¬ 

END; 

File_type  :  BEGIN 

status  :=  Xmodm.RespQnd_by_f ile  (  ErrDr_m5g  ); 
END; 

nothing  :  BEGIN 
END; 

END;  -CCASEI 

IF  NOT  ((  finished  )  OR  (  status  =  Tk_CAN  ))  THEN 

CASE  Restype  OF 

sti^ng  :  BEGIN 

string_to_buf  (  Response,  buf  ); 

REPEAT* 

status  :=  Command_Xfer  (  Transmit,  buf,  128  ) 
until  (  status  =  T:-;_done  ) 

OR  (  status  =  T>;_keypres5ed  ) 

OR  (  status  =  T>!_CAN  ) ; 

F’"ocess_command  :=  status; 

CASE  status  OF 

T>:_keypres5ed  ;  BEGIN 

IF  Clo5e_window  THEN; 
WHILE  keypressed  DO 
Ch  :=  readkey; 
finished  ;=  TRUE; 

EXIT; 

END; 

Tk_CAN  :  BEGIN 

finished  ;=  TRUE; 

END; 


file_type  :  BEGIN 

status  ;=  Xmodm.RBspond_by_-file  (  Response  ); 

END; 

nothing  :  BEGIN 
END; 

END;  t  CASE  } 

IF  NOT  finished  THEN  BEGIN 

IF  6et_Window  (  Server_ID  )  THEN; 

GOTOXY  (  12,  2  ); 

Write  ('Forwarding  Prompt'); 

GOTOXY  (  12,  3  ); 

Write  ('Command  Complete'); 

GOTOXY  (  1,  4  ); 

Write  ( 'Prompt  :  '  ) ; 

GOTOXY  (  1,  11  ); 

Write  (  Prompt  ); 

str i ng_to_bu-f  (  •■'■M  +  Prompt,  bu-f  ); 

REPEAT 

status  ;=  Command_X-f er  (  Transmit,  bu.-f ,  128  ); 

UNTIL  (  status  =  T!:_done  ) 

OR  (  status  =  T;:_keypres5ed  ) 

OR  (  status  =  T>'_CAN  ); 

Send_CAN; 

WHILE  keypressed  DO 
Ch  :=  read key; 

Proce5s_command  :=  status; 

IF  Get_Window  (  Server_ID  )  THEN; 

END; 

IF  Clo5e_w:ndow  THEN; 

END; 

(if*-*#*****#***#*##****#*  Start  Edwards  Excerpt  *»♦*#*#♦**##**•*■*#♦#*) 
(  1  Sep  89  global  variables  eliminated  1 

CONST  Comm5_Menu  :  integer  =  9; 

Comms_Fn5  :  ARRAY  Cl.. 9]  OF  STRING  C  24  ]  =  ( 

'Initialise  port  ' , 

'Connect  to  current  port  ', 

'Disconnect  current  port  ', 

'ZCOPY  file  to  remote  ', 

'ZCOPY  file  from  remote  ', 
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'Get  machine  status 
'Login  to  remote  machine  ', 

'Reset  remote  server 
'(ESC)  Exit  '); 

Comm5_Stat_Menu  ;  integer  =  7; 

Comms'stat":  ARRAY  C  1..7  ]  OF  STRING  [  16  3  =  ( 
'Comm  Port  ' , 

'Speed  ', 

'Word  Length  ', 

'Parity  ', 

'Stop  Bits  ' , 

'Function 

'Status  '); 


FUNCTION  Comm5_-f unction  ;  result; 

CONST  Receive  :  boolean  =  FALSE; 
Transmit  :  boolean  =  TRUE; 


VAP 

I, 

Server _ID , 

Save_Wi ndow , 

Status_Window, 

RemDte_Window, 

P'unction_Window  :  Byte; 

Verbose  ;  boolean; 
quit  :  boolean; 

List  :  EquipmentListType; 

Procedu'^e  Update_Statu.s  (  Fn,  Status  ;  string  ); 

VAR  J  :  Integer; 

BEGIN 

l-f  Get_Window  (  Status_Window  )  THEN; 

FOR  J  ;=  1  to  Co(rims_Stat_Menu  DO  BEGIN 
GcToXV  (  18,  J  ); 

ClrEDL; 

WITH  Comport  [  Current_COM  3  DO 
CASE  J  OF 

1  :  Write  (  Current_COM  ); 

2  ;  Write  (  Speed_M5g[0RD (  Speed  )  +  1  3); 

(*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
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3  ;  Write  (  Length_MsgC  Length-43  ); 

4  ;  Write  (  Pari ty_MsgCMin (ORD (  Parity  )+l,  3)3); 

5  :  Write  (  Stop_Msg[  Stop  +  13  ); 

6  :  Write  (  Fn  ); 

7  :  Write  <  Status  ); 

END;  {  CASE  3 

END; 

IF  Set_Window  (  Function_Window  )  THEN; 

END;  i  Update  Status  3 

Procedure  Reset_remote; 

{  This  procedure  -forces  the  remote  server  to  return  to  the 
command  receive  mode) 

BEGIN 

Update_StatLis  (  'Resetting',  'Please  wait.  .  .  '  ); 
Xmodm. Send_CAN; 
delay  (500); 

Xmodm. Send_CAN; 
delay  (500); 

Xmodm. Send_CAN; 
delay  (500); 

Xmodm. Send_CAN; 
delay  (500); 

END; 

Function  Remote_Command  (  Command  :  Stringl28  )  ;  boolean; 

VAR  Ch  ;  char; 

status  :  result; 
bu-f  :  bu-f-fer; 


Function  5top_ca5e  (  status  :  result  )  ;  boolean; 


BEGIN 

5top_case  := 
OP 
COR 

END; 


(  status  = 
(  status  = 
(  status  = 


RK_keypressed  ) 
R>'_CAN  ); 

R;;  done);} 


BEGIN 

IF  Verbose  THEN  Writeln  ('sending  command'); 
5tring_to_bu.'f  (  Command  ,  bu-f  ); 
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REPEAT 

status  :=  Command_X'f er  (  Transmit,  bu-f ,  128  ); 

UNTIL  (  status  =  T;:_dane  )  OR  (  status  =  Tx_keypressed  ); 

CASE  status  OF 
Tx_CAN, 

T>;_keypressed  :  BEGIN 

Update_Statu5  (  'Aborted'); 

IF  6et_Window  (  Remote_Window  )  THEN; 

WHILE  keypressed  DO 
Ch  :=  readkey; 

Remote_Command  :=  FALSE; 

END; 

Tx_done  :  BEGIN 

Xmodm. Monitor_trans'fers  ;=  FALSE; 

IF  Verbose  THEN  Writeln  ('Getting  response'  ); 
REPEAT 

?i:atus  ;=  Get_Response  (  128  ); 
until  stop_case  (  status); 

CASE  stavj.s  OF 

Rx  keypressed  ; 

BEGIN 
W") teln 

('Aborted  by  user  waiting  -for  response'); 
delas'  (1000); 

WHILE  Keypressed  DO 

Ch  !=  readkey;  -C  clear  the  keypress  3 
Femote_Command  ;=  FALSE; 

END; 

Rx_done, 

Rx_CAN  : 

BEGIN  I  normally  the  signal  to  turn 
the  link  around  For  the  next 
command  3 

Pemote_Command  ;=  TRUE; 

END; 

END;  C  CASE  3- 
END; 

END;  C  CASE  3 
END;  C  Remote  Command  3 
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Procedure  Rlogin; 

VAR  quit  ;  boolean; 

Command  :  Stringl28; 
buf  :  buf-fer; 

BEGIN 

quit  ;=  FALSE; 

Update_Statu5  (  'Login  to  remote',  ''  ); 

IF  Open_Window  (  1,  1,  80,  23,  Flag_Borders, 

'Remote  system  -  ESC  terminates')  =  0  THEN; 

ClrScr; 

Remote_Wi ndow  ;=  Acti ve_Window ID; 

IF  Veroose  THEN  Writeln  ('synchronizing'); 

Writein  ('Trying  .  .  .'); 

Command  :=  'Prompt  ; 

REPEAT 

IF  NOT  (  Remote_Command  (  Command  )  )  THEN  BEGIN 
Writeln  ('Command  tailed'); 
quit  :=  TRUE; 

END 

ELSE  BEGIN 

Command  :=  Operator_input  (  'Command  ["l<CR>"  to  quit]', 

'Command  to  send  to  remote  '  ); 

IF  (Pos  (  '' ',  Command  )  <>  0)  THEN  REPEAT 
Command  ;=  0perator_i nput  (  'Quit',  'Quit?  In,  y]  '); 
quit  :=  (Command  =  'Y')  OR  (Command  =  'y') 

OR  (  Command  =  ' '  ) ; 

UNTIL  (qijit  OR  NOT  (Command  =  'n')  OR  NOT  (Command  =  'N')); 
END; 

until  quit; 

Xnodm.  •  tor_t^"anster5  ;=  TRUE; 

IF  Get_Window  (  Remate_Wi ndow  )  THEN; 

IF  Cio5e_Windcw  THEN;  C  Close  the  Remote  Window  } 

END;  C  Rlogin  I 

Procedure  R:-:_File; 

CONST  Curnt_C0N  ;  String  [51=  'COMl'; 

VAR  Dir  ;  Pathetring; 

Command  ;  St'-inglOS; 
status  :  result; 
quit  ;  boolean; 
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Ch  :  Char; 

Settings  ;  byte; 
bu-f  :  bu-f-fer; 

BEGIN 

quit  :=  -false; 

Update_Status  (  'Receive  File',  ''  ); 
i  Open  message  window  } 

IF  Open_Window  (  1,  12,  80,  20,  Flag_Borders, 

'Receive  File  Monitor  -  press  any  key  to  abort')  =  0  THEN; 
ClrScr ; 

Remote_Window  :=  Acti ve_Window''.  ID; 

Command  :=  Qperator_inpLit  (  'File  to  Receive', 

'Full  Path  at  remote?'); 

Writeln  ('Trying  .  .  .'); 

string_to_bu-f  (  'zcopy  '  -*■  Command  Curnt_CDM,  buf  ); 

IF  Verbose  THEN  Writeln  ('sending  command'); 

REPEAT 

status  ;=  Command_X-fer  (  Transmit,  bu-f,  128  ); 

UNTIL  (  status  =  Tx_donB  )  OR  (  status  =  TK_keypressed  ); 

WHILE  Kevpressed  DO 
C^'  ;=  Read  key; 

IF  status  Tx_done  then  BEGIN 

W'-iteln  ('Aborted  by  user  on  send'); 
delay  (1000); 
qu:t  :=  true; 

ENI' 

E;.SE  BEGIN 

IF  Open_Window  (1,  1,  80,  25,  0,  ")  =  0  THEN  BEGIN 
ClrScr ; 

Get Dir  (  0,  Dir  ); 

Exec  (  ' zcopy. com ' ,  '  '  +  Curnt_C0M  ); 

RS_C1 eanup ; 

RS_Restore  (  Current_C0M  ); 

IF  Clo5e_Window  THEN; 

IF  DosError  <>  0  THEN  BEGIN 

W’^iteln  ('DOS  Error  ',  Error_CDde  C  DOSERROR  ]  ); 

Delay  (2C>00)  ; 

END; 

System. ChDir  (  Dir  ); 

END; 
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IF  Verbose  THEN  Writeln  ('Getting  response'  ); 

REPEAT 

status  :=  Get_Response  (  128  ); 

UNTIL  (  status  =  Rx_keypressed  ) 

OR  (  status  =  R>;_CAN  ); 

IF  status  =  Rx_keypre5sed  THEN  BEGIN 
Writeln  ('Aborted  by  user  waiting  -for  response'); 
delay  (1000); 
quit  ;=  true; 

END; 

Xmodni.Monitor_transfers  :=  TRUE; 

END; 

{  Close  message  window  } 

IF  Clo5e_Window  THEN; 

END;  -C  R);_Filp  } 

Procedure  T!!_Fiie; 

CONST  Curnt_C0M  ;  String  [  5  ]  =  'COMl'; 

VAR  Dir  :  Pathstring; 
quit  :  boolean; 

Command  ;  Stringl28; 

Ch  ;  Char; 
bu-f  ;  bu-f-fer; 
status  ;  result; 

BEGIN 

quit  :=  -false; 

Update_Status  (  'Transmit  File',  ''  ); 

C  Open  message  window  > 

IF  Open_Window  (  1,  12,  80,  20,  Flag_Borders, 

'Transmit  File  Monitor  -  press  any  key  to  abort')  =  0  THEN; 
ClrScr ; 

Remote_Wi ndow  :=  Acti ve_Window". ID; 

Command  :=  Operator_i nput  (  'File  to  Transmit', 

'Full  Path  (local)?  '); 

Writeln  ('Trying  .  .  .'); 

5tring_to_bLi-f  (  'zcopy  '  +  Curnt_C0M,  bu-f  ); 
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IF  Verbose  THEN  Writeln  ('sending  command'); 

REPEAT 

status  :=  Command_X'fer  (  Transmit,  buf ,  128  ); 

UNTIL  (  status  =  Tx_done  )  OR  (  status  =  Tx_l<eypressed  ); 

WHILE  Keypressed  DO 
Ch  ;=  Readkey; 

IF  status  <>  Tx_done  then  BEGIN 

Writeln  ('Aborted  by  user  on  send'); 
delay  (1000); 
quit  ;=  true; 

END 

ELSE  BEGIN 

IF  Dpen_Window  (  1,  1,  80,  25,  0,  ")  =0  THEN  BEGIN 
ClrScr; 

GetDir  (  0,  Dir  ); 

Exec  (  'acopy.com  +  Command  +  '  '  +  Curnt_C0M  ); 

RS_Cleanup; 

RS_Restore  (  Current_COM  ); 

IF  Close_Window  THEN; 

IF  DosError  C>  0  THEN  BEGIN 

Writeln  ('DOS  Error  ',  Error_Code  C  DOSERROR  ]  ); 

Delay  (2000); 

END; 

System. ChDir  (  Dir  ); 

END; 

1“  Verbose  THEN  Writeln  ('Getting  response'  ); 

REPEAT 

status  ;=  Get_Response  (  128  ); 

UNTIL  (  status  =  Rx_keypres5ed  ) 

OR  (  status  =  Rk_CAN  ); 

IF  status  =  Rx_keypressed  THEN  BEGIN 

Writeln  ('Aborted  by  user  waiting  -for  response'); 
delay  (1000); 
quit  :=  true; 

END; 

Xmodm.  Mom  tor_trans-f ers  :=  TRUE; 

{IF  Close_Window  THEN;) 

END; 

{  Close  message  window  )■ 

IF  Close_Window  THEN; 

END;  ^  Tx_File  ) 
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Procedure  Get_Equip; 

VAR  Command  :  stringl28; 
bu-f  ;  buf-fer; 

BEGIN 

L)pdate_Status  (  'Getting  remote  equipment',  ''  ) ; 

IF  Open_Window  (  1,  1,  80,  23,  Flag_Borders, 

'Remote  system  -  ESC  terminates')  =  0  THEN; 

ClrScr ; 

Remote^Window  ;=  Acti  ve_Window''‘.  ID; 

IF  Verbose  THEN  Writeln  ('synchronizing'); 

Writeln  ('Trying  .  .  .'); 

Command  :=  'Equip'; 

stri  ng_to_bu-f  (  Command  ,  buF  ); 

IF  (  Remote_Command  (  Command  )  )  THEN; 

Xmodm. Monitor_transFers  :=  TRUE; 

IF  Close_Window  THEN; 

END;  {  Get_Equip  3 


BEGIN 

Verbose  ;=  TRUE; 

IF  Dpen_Window  (1,2,  80,  Comms_Stat_Menu  +  3,  Flag_Borders, 
'Current  Port'  )  =  0  THEN; 

Statui_Window  ;=  Acti ve_WindoW' . ID; 

ClrScr; 

FOR  I  ;=  1  TC  Comms_Stat_Menu  DO  BEGIN 
Go^oXY  (  1,  I); 

Write  (  Comm5_Stat  [  I  1,  ':'); 

END; 

IF  Open_Window  (  41,  2,  75,  Comms_f1enu  +  3,  FI ag_BordBrs , 
'Functions’)  =  0  THEN  BEGIN 
Function_Window  :=  Acti ve_Window'".  ID; 

ClrScr; 

Update_Statu5  (  ' ' ,  ' '  ) ; 

END 

ELSE  Writeln  ('Can''t'); 

REPEAT 

I  :=  Process_Window_rienu  (  Comms_Menu  ); 
quit  :=  False; 

CASE  I  OF 
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0  :  ;  C  ESC  -  do  nothing  } 

1  :  BEGIN  {Initialize  port  } 

Update_Status  (  ' Intial izing  ' , 

‘Select  new  parameters'  ); 
Change_DC_Parameters; 

Save_Window  ;=  Active_Window^. ID; 

A’S_Cleanup; 

WITH  Comport  C  Current_COM  ]  DO 

RS_Initialize  (  Current_COM,  Speed,  Parity, 
Stop,  Length  ); 

LJpdate_Statu5  (  'Completed',"'); 

IF  Get_Window  <  Save_Window  )  THEN; 

END; 


2  :  BEGIN  {Connect  to  port  } 

H  Open_Window (40, 15,47, 18, Flag_Borders, 'Port ' )  =  0  then; 
ClrScr ; 

I:=  Proce5s_Window_Menu(Comm_Menu) ; 

IF  I  IN  [Coml..Com2]  THEN  BEGIN 
Cur rent_C0M  :=  I; 

RS_Cleanup; 

WITH  Comport  [  Current_COH  3  DO 

RS_Initialize  (  Current_COM,  Speed,  Parity,  Stop, 
Length  ) ; 

H  Close_Window  then; 

Update_Status  (  'Connecting',  ''  ); 

END 

ELSE 

Llpdate_Statu5  (  'Can''t',  'Port  out  o-f  range'  ); 

END; 


BEGIN  {Disconnect  current  port  3 
Update_Statu5  (  'Disconnecting', 
RS_Cle3nup; 

{  Disable  those  interrupts  3 
END; 


); 


BEGIN  {Put  -file  to  remote  3 

Update_StatuE  (  'Putting  File', 
Tx_File; 

END; 


); 
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5  ;  BEGIN  [Get  -file  from  remote  > 

Update_Statu5  (  'Getting  File',  ''  ); 

Rx_Fi le; 

END; 

6  :  BEGIN  {Get  machine  status  } 

Get_Equip; 

END; 

7  :  BEGIN  {Login  to  remote  machine  } 

Rlogin; 

END; 

6  ;  BEGIN  {Reset  remote  machine  } 

Reset_remote; 

Update_Status  (  'Reset',  ''  ); 

END; 

9  :  BEGIN  {(ESC)  Exit  > 

I  :=  0; 

END; 

END;  {CASE) 

until  (I  =  0)  or  (quit); 

IF  Clo5e_Window  THEN; 

IF  Cl ose_WinflQw  THEN; 

Comms_FunctiQR  :=  T:;_done; 

END;  {  Comm5_Functi on  ) 

Procedure  Handle_Al t_Key (B: Byte) ; 

{This  procedure  handles  the  ALT-Key  combinations. 

Input:  B  -  the  high  order  byte  returned  from  Check_Keyboard 

■> 

Van  I: Integer; 

S:Long_String; 
status  :  result; 

Beg  i  n 
Case  B  of 

Alt_A:  Begin  {Drive  and  path) 

If  0pen_Window(10,3,50,7,Flag_Borders, 'Path ' )  =  0  then; 
ClrScr ; 
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Wr  i  tel  n  ( 'Enter  new  drive  and  path  using  -format:'); 
Writeln ( 'D; \Path\Path. . . ' ) ; 

Read In (S) ; 

If  Length (S)  >  0  then 
System. ChDir (S) ; 

If  Close_Window  then; 

End; 

Alt_B:  Begin  {Break} 

RS_Break; 

End; 

Alt_C:  Begin  {Clear  screen} 

Modify_Entry(0) ; 

End; 

Alt_D:  Begin  {Dial} 

Di al i ng_Di rectory; 

End; 

Alt_E:  Begin  {Echo} 

Beep (250) ; 

Echo:=not  Echo; 

End; 

Alt_P':  Begin  {Data  comm  parameters! 

Change_DC_Parameters; 

End; 

Alt_G:  Begin  {Show  disk  directory} 

Dirs; 

End; 

Alt_H:  Begin  {Hangup} 

Beep  f250) ; 

Hangup ; 

End; 

Alt_L!  Begin  {DOS  Shell! 

Dos_Shel 1 ; 

End; 

Alt_M  ;  Begin 

Status  ;=  Comms_Function; 

End; 

Alt_P:  Begin 

Status  ;=  Comms_Function; 

End; 

Alt_R, 

PgDn  :  Begin  {Receive  a  file! 

If  Asci i _Download  then 
Begin 

Close (Asci i_File) ; 

{*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybex ,  Inc. 
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Ascii _Download:=False; 

If  Open_WindQw (35, 10,66, 13,Flag_Borders, ' ' )  =  0  then; 
ClrScr ; 

Write ( 'Receipt  of  file  terminated'); 

OK  ( ‘  ' ) ; 

If  Close_Window  then; 

End 

else 

Transf er_File(False) ; 

End; 

Alt_S:  Begin  {Activate  Server} 

REPEAT 

Status  :=  Process_Command; 

UNTIL  (  status  =  Rx_keypressed  >  OR 
(  status  =  Tx_keypressed  ) ; 

End; 

Alt_T, 

PgUp  :  Begin  {Transmit  a  file} 

Transf er_Fi le (True) ; 

End; 

Alt_X:  Begin  {Exit} 

Beep (400) ; 

End_Emulator!=  TRUE; 

If  End_Emulator  and  Ascii_Download  then 
Ciose(A5Cii_File) ; 

End; 

Home:  Begin  {Help} 

If  Open_Window (1,1 ,29, Min (20,Help_Menu+2) , FI ag_Borders , 
'Help')=  0  then; 

ClrScr; 

I : =Proce55_Wi ndow_Menu (Hel p_Menu)  ; 

If  Close_Window  then; 

If  I  >  0  then 

Handl  e_Al t_Key (Hel p_ Index  C I ] ) ; 

Erd; 

Else  Begin 

Beep (1000) ; 

End; 

End;  (of  Case! 

Bui  1  d_Status_Line; 

End;  Cof  Handl e_Alt_Key} 


(♦  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
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(*♦*♦♦****■**•«•*♦****♦*  Continue  Edwards  Excerpt  *♦****♦*♦«•♦«■•»*♦**«■*•*) 
Procedure  TTY (Ansi ;  Boolean) ; 

{This  procedure  provides  basic  teletype  emulation. 

It  suppresses  NULs  and  converts  6S  into  a  non-destructive  backspace} 

Const  Ansi_Init;  Array  [0..8]  o-f  Char  =  (#27,  '  C  ' , '3 ' , '7  ' ,  ' ;  ' , '4 ' , '0 ' , 

'm' , ; 

ColorsrArray  CO. .73  o-f  Char  =  ( '0 ' , '4 ' , '2 ' , '6  ' ,  '  1  ' , '5  ' , '3 ' , '7  ' ) ; 
Var  ChrChar; 

I : Integer; 

Regs: Registers; 

Procedure  WriteLF; 

Begin 

If  not  Ansi  then 
Writeln 

else  i-f  WhereY  ?.^=  24  then 
Begin 

Regs.  AX:  =J:0601 ; 

Regs.CX:=*0000; 

Regs.DX;=fl74F; 

Regs. BH:  =BackgroLind  shl  4  +  Foreground; 

Intr ($l0,Do5.Registers(Reg5) ) ; 

6otoXY(l ,24) 5 
End 
else 
Beg  i  n 

Regs. AH: =2; 

Regs. DL: =LP; 

MSDo5(Do5.Regi5ter5(Regs) ) ; 

End; 

End;  Cof  WriteLF} 

Procedure  Wri tei t (Ch: Char) ; 

Beg  i  n 

I-f  Ansi  then 
Begin 

Regs. AH; =2; 

Regs.DL:=Byte(Ch} ; 

MSDos (Dos. Registers (Regs) ) ; 

If  WhereY  >  24  then  WriteLF; 

End 
el  se 

Write (Ch) ; 

End;  {of  Wri tei tl 

(*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
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(**«■***♦♦*♦*****♦*«■**  Continue  Edwards  Excerpt  ***♦♦*■■**»*♦♦*■**#«•♦♦♦) 
Begin 

It  Open_Window ( 1 , 1 ,80,24,0, '' )  =  0  then;  {Save  existing  screen} 

Bui ld_Status_Line; 

H  Ansi  then  Begin 
Regs. AH; =9; 

Regs.DS;=Seg (Ansi_lnit) ; 

Regs.DX;=Q'fs(Ansi_Init) ; 

Ansi_InitC3]; =Color5CForeground3; 

Ansi_Ini tC63 : =Col or sC Background 3; 

MSDos (Dos. Regi sters (Regs) ) ; 

End; 

ClrScr ; 

Repeat  Begin 

Ch: =Check_Auxport; 

Case  Byte(Ch)  oi 

NUL:  ;  {Throw  it  away} 

GS;  Begin  {Non-destructive  backspace) 

H  WhereX  >  1  then 

GotoXY (WhereX-1 ,WhereY) 
else  i-f  WhereY  >  1  then 
GotoXY (80,WhereY-l ) 
else 

GotoXY (80, 24); 

End; 

LF;  WriteLF; 

Else  Begin 

Writeit(Ch) ; 

End; 

End;  Co-f  Case} 

I : =Check_Keyboard; 

If  I  <>  0  then 

If  Lc(I)  =  0  then 

Handle_Alt_Key (Hi (I) ) 
else 
Begin 

Ch: =Char (Lo ( I ) ) ; 

RS232_0ut(Ch); 

If  Echo  then 
Begin 

Wri tei t (Ch ) ; 

If  Ch  =  Char(CR)  then 
WriteLF; 

If  Print  then 
Begin 

(♦  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
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Write (LST,Ch) ; 

H  Ch  =  Char(CR)  then 
Write (LSI, Char (LF) ); 

End; 

End; 

End; 

End 

Until  End_Emul ator; 

H  Ansi  then 
Begin 

Regs. AH: =9; 

Regs.DS:=Seg(Ansi_Init) ; 

Regs.  DX:  =0-^  s  (Ansi_Init); 

Ansi_InitC3]:=Color5CLightGray]; 

An5i_Ini tC6]:=CQlorsCBlack3; 

MSDos (Dos. Registers (Regs) ) ; 

End; 

I-f  Clo5e_Window  then; 

End;  Cof  TTY) 

(The  outer  block  o-f  Distrib.  It  performs  all  necessary  initialization 
and  presents  the  user  with  a  list  of  terminal  emulators  from  which  to 
select) 

Var  I; Integer; 

status  :  result; 
command_tail  :  string; 


Begin 

GetDir (0,Current_Path) ;  (♦  save  current  directory  tor  restoration  ♦) 
Ini t_Window_Inf o; 

If  Open_Window ( 1 , 1 ,80,25,0, '' )  =  0  then; 

Support. Initialize; 

IF  F'aramCount  >  0  THEN  BEGIN 
command_tail  ;=  ParamStr  (1  ); 

BumpStrUp  (  command_tai I  ); 

END; 

IF  (  (  ParamCount  >  0  )  AND  (  command_tai I  =  'SERVER')  ) 

OR  (  ParamCount  =  0  )  THEN 

REPEAT 

status  :=  Process_command; 

UNTIL  (  status  =  Tx_keypres5ed  )  OR  (  status  =  Rx_kBypres5ed  ) 


(*  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
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ELSE  BEGIN  \  Master  or  maintenance  -function  } 

End_Emul at or ; =Fal se ; 

Emulator :  =  'ANSI ' ; 

TTY (True) ; 

END; 

Repeat 

until  Close_Window;  {  Close  out  all  windows  } 

System. ChDir (Current_Path) ;  (*  restore  the  previous  directory  *) 
End. 


(♦  Reprinted  with  extensive  modifications  from  Advanced  Techniques  in 
Turbo  Pascal  by  Charles  Edwards,  by  permission  of  Sybe;: ,  Inc. 
Copyright  IPS''  Sybex ,  Inc.  All  rights  reserved. 

End  Edwards  Excerpt 


APPENDIX  AB 


CONFIGURATION  FILE  STRUCTURE 


A.  DISTRIB.CFG  FILE  STRUCTURE 

This  is  the  data  structure  recorded  in  the  DISTRIB.CFG  -file  when  a 
con-figuration  is  saved.  This  structure  can  be  accessed  -from  the 
Distrib  program  main  menu  by  pressing  the  special  key  combination 
Ait-C,  -for  Update  Con-fig  File. 

1.  Data  Structure  For  the  Default  Configuration 

This  is  the  data  structure  in  the  Support  Unit  that  is 
recorded  in  variable  Current  of  type  Def aul t_Type. 


mod  1  -f  y  ? 
port 

speed 
par  i  t 


Const  De-faults  :  Default_Type  = 

(Def aul t_Name  :  'DISTRIB.CFG';  The  file  name  to 

Default_Com  :  1;  The  default  communications 

Def ault_Modem  ;  2;  The  default  modem  port 

Def ault_Phone  :  '555-1212'; 

Def aul t_Speed  ;  B9600;  The  default  comm  port 

Def ault_F'arity  :  None;  The  default  comm  port 


De-f aul t_Length  :  8;  The  default  comm  port 

Defauit_Stop  :  1;  The  default  comiT;  port 

Def  aul  t_Echo:  False;  Enable  Half  Duple:-: 

Default_Textcolo'"  :  LightGray;  The  default  te.xt 


col  or 

colo-' 

dialing  pre-fi; 
connect i on 


Def aul t_MenucQlor: Green;  The  default  menu  color 
Def aul t_Backcolor : B1 ack;  The  default  background 

Default_Pref  i;-:: 'ATDT9,  ,9,  ,  ' ;  The  default  modem 

Default_Delav':30) ;  The  default  delay  to  wait  for 


APPOJDIX  AC 


DOCUMENTATION  FOR  ZCOPY  PROKIAM 


This  is  the  documentation  -for  the  Zcopy  program  used  for  file 
transfer  (Flanders,  1989,  pp.  251  -  282). 

ZCOPY, COM 
Command 

Bob  Flanders 

1989  No.  4  (Utilities) 


Purpose:  Transfers  files  at  high  speed,  via  a  serial  link,  between 
machines  that  do  not  share  a  common  disk  format. 

Format;  ZCOPY  source  [target]  [/w]C/n]C/u][/o]C/a]C/p]C/d] 

Remarks:  The  two  machines  must  be  IBM  compatible  and  must  be  connected 
by  a  standard  "null  modem"  cable.  ZCOPY  is  executed,  with  appropriate 
paramete'^s,  on  both  machines;  a  30-second  (default)  connect  timeout  is 
provided. 

On  the  sending  machine  both  a  source  (filename  plus  any  needed 
drive  and  path)  and  a  target  (COMl  or  COM2)  must  be  specified.  ZCOPY 
supports  the  *  and  "  DOS  filename  "wildcards,"  but  it  does  not  permit 
renaming  files  during  transfer. 

On  the  receiving  machine  the  source  is  CC'-l  or  COM2,  and  the  target,  if 
specified,  must  be  a  directory  path.  (Any  needed  subdirectories  must 
be  created  on  the  receiving  machine  before  using  ZCOPY.) 

The  optional  /w  and  /n  switches  operate  before  connection  is 
established,  and  sc  are  entered  on  the  ZCOPY  command  line  of  each 
machine.  The  /w  parameter  prolongs  the  default  connection  timeout 
indefinitely;  it  can  be  cancelled  with  Ctrl -Break.  The  /n  parameter 
sets  the  highest  bi t-per-second  (bps)  rate  at  which  ZCOPY  will  attempt 
to  transfer  data.  If  used,  it  must  be  the  sam'.  on  both  machines.  The 
default  IS  /I  (115  kbps).  Other  acceptable  values  are  /2  through  /6 
(57.6  kbps,  38.4  kbps,  19.2  kbps,  9600  kbps,  and  4800  kbps, 
respectively).  If  ZCOPY  cannot  maintain  error — free  transfer  at  a  given 
transfer  rate,  it  automatically  steps  down  to  the  next  lower  speed. 

The  other  optional  parameters  may  be  entered  on  either  machine's 
ZCOPY  command  line.  The  /u  (Update)  switch  permits  overwriting 
sarr^e-nam^ed  files  on  the  receiving  machine  without  operator  con-*^ i rmati on 


i-f  the  source  -file  is  more  recent.  The  /o  (Overwrite)  switch 
suppresses  the  confirmation  prompt  for  all  files.  By  default,  when 
ZCOPY  receives  a  disk-full  signal,  before  aborting  it  tries  to  find  a 
smaller  selected  source  file  that  will  fit  on  the  receiving  disk.  The 
/a  (Abort  on  Full)  aborts  at  the  first  disk-full  indication.  The  /p 
(Pause)  switch  creates  a  pause  before  the  transfer  operation  begins 
after  the  connection  between  machines  has  been  made. 
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